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SEQ 1 



1 .REM a 

2 
S 
4 
5 
6 
7 
9 
9 
10 

11 IDENTIFICATION 

12 

IS 

14 

15 PRODUCT CODE 



AC - FG13A MC 
CZTUIAO T81 DATA RELIAB TEST 
SEPTEMBER 1985 



16 

17 PRODUCT NAME 

1« 

19 PRODUCT DATE 

20 

21 MAINTAINER: TAPE OPTICAL DIAGNOSTIC ENGINEERING 

22 

23 AUTHOR: BRIAN T. LE6LANC 

24 

25 

26 

27 

26 

29 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE UITHOUT 

30 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

31 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

32 RESPONSIBILITY FOR AMY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 
S3 

34 NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 

35 SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 

36 AFFILIATED COMPANIES. 
37 

38 COPYRIGHT (C) 1965 BY DIGITAL EQUIPMENT CORPORATION 

39 

40 THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 

41 

42 DIGITAL POP UNIBUS MASS6US 

43 DEC DECUS OECTAPE 
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9S 1 GENERAL IIFORnATION 
94 

99 1.1 Prograa Abstract 
96 

97 Th« TU61 PDPll Data Reliability prograa Mill «K«rcis« th« 

90 TUSl and establish the parforaanca quality of each unit through tha 

99 accu^lat^on of statistics. Pradataraincd saquancas of or«rations 

100 Mill parait raad and ar its coapatibility (Media Intarchanga tasting) 

101 w>d data reliability testing. This prograa Mill be designed to run »r> 
10? a POPll XXOP* cnvironacnt. 

105 
104 

ICS The '^ata Reliability program Mill detect functional faults, but 

106 Mill not provide diagnostic isolation to the field replaceable unit. 
107 

106 The PDPll TU81 Data Reliability prograa is intended for the 

109 follOMing users: 

111 1. Quality and user audit functions. 

112 

113 2. F A C T at our various facilities. 

114 

115 3. Field service personnel. 

116 

117 4. DEC custoMters Mho choose to provide their ONn maintenance. 

lie 

119 

120 Program uses include but are not limited to the folloM.ng: 

121 

122 1. Determination of a unit's spec fie performance Cerror rate) 

125 

124 2. Fault detection. 

126 5. Repair verification. 

127 

120 4. Installation ver fi cat ion. 

l50 5. Preventive Maintenance softMsre tool. 

151 

152 

135 This program Mill CKcrcise up to 4 TUSl's in a round-robin 

134 manner. It Mill require 28KU of memory. One default pass Mill be 

135 t^en a tape cartridge (600') has been started at the beginning of tape 

136 (SOT) marker and has passed all available tape to the end of tape 
157 (EOT) marker over the tape head. tMice. One End Of Pass (£0P) Mill 
156 require approximately 1 hour and 10 minutes for each unit under test. 
159 

140 1.2 Runtime Environment Requirements 

141 

142 

145 Run time environment requirements include: 

144 

145 1. XXDP* Diagnostic Supervisor 

146 

147 2. POPll family CPU. 

146 

149 3. 2aKU of memory. 
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SEQ « 



150 

X51 4. an XXOP Load Device. 

155 5. Console Terminal. 

155 6. 1 to 4 TU81 drives with controllers, 
156 

157 7. 1 scratch tape / TU81 

ise 

159 
160 
161 
162 

163 1.3 Related Docuncnts And Standards 

165 The TU81 Data Reliability program will run under the XXDP* 

166 Operating systca. and Mill be Supervisor compatible. The program. 

167 with the supervisor will run on all PDPll processors. 
160 

169 This program Mill conform to the following documents: 

170 

X71 1. EL-ENDIA-11 "POPLl Diagnostic Design Guide", 

172 

173 2. POP Diagnostic Quality Assurance Checklist, 

175 3. Software Development Policies And Procedures Manual, 

177 4. DEC Std 100. 

175 

179 5. UNIBUS/Q-bus Storage Systems Port Spec Version 2.1 

ISO 

191 6. Magnetic Tape Mass Storage Control Protocol Spec Version 1.6 
192 

193 7. Mass Storage Control Protocol Spec Version 1.2 

164 

196 1>4 Pass/Fail Criteria 

199 A unit under tast will not pass the data reliability mode of 

^99 testing if any of tha following error conditions have occurred during 

190 the test cycle: 

191 

192 1. Any irrecoverable write errors detected as documented m the 

193 TUBl product apacif ication. 
194 

195 2, Any irracovar^le read errors detected as documented in the 

19b TUei product specification. 

197 

199 3. Irrecoverable hardware errors have occurred. 
199 

200 4. CRC recoverable read errors which exceed TBD errors in 10 to 

201 the 11th bits read 
202 

203 5. ECC recoverable read errors which exceed TBD errors in 10 to 

204 the 11th bits read 
205 

206 
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207 If less ttvert tt>c re^<re4 data has been transferred. (He 

206 confidence that the unit has aet tt«e <>rror rate is diainished. That 

209 Js to say if the prograai is run m • quick verify aodc. the unit aay 

210 be accepted as error free but only Mith a lo« degree of confidence. 
211 

212 
213 

214 1.5 Data Coapare Function 
215 

216 The tiae required to per for* lOOK softMsrc data comparisons is 

217 entirely prohibitive for streaaing tape drives. This problea is 
210 further exacerbated by the asynchronous nature of coiMMind execution 

219 under TnsCP and prograa size liaitations which dictate the allocation 

220 of a singla read data buffer. 
221 

222 To ainiaize the iapact of all this, teols 2 and 3 (the only tests 

225 Mhich Mill perfor* softMsre data coapares) Mill do softMsre data 

224 coapares on every 4th record. To avoid the problaa of perforaing data 

225 coapares on a dynaaic read buffer, 3 records will be read fron taps 

226 uaing the Accesa coaaand. 
227 

220 
229 

2S0 1.6 Restrictions 

2S2 This prograa is not intended for use as an isolation tool to 

259 detact a fault to the sinole Field Replaceable Unit (FRU). As such, 

254 it Mill not co itain ecope loops for that purpose. The parametar 

235 aalaction process, discussed later in this document, is meant to be 

256 used only for functional fault detection and unit isolation. 
257 
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239 2 OPERATING INSTRUCTIONS 

240 

241 2.1 U*cr Dialogue 

242 

243 The folloMing user Jialoguc will be provided by the diagnostic to 

244 allOM the operator to establish certain operational paraaetcrs of the 

245 prograa. 
246 

247 
c46 

249 2.2 HardMare Questions 

250 

251 This sat of questions must be ansMcred by operator when the 

25| pregraa is first started. 

254 CHANGE HARDWARE CD ? no ocfault 

256 NMER OF UNITS (D) ? 
257 

258 b'.'ttT X X > Number of unit the p- table is 

259 TKIP ADDRESS (0) 774500 7 being built for. 

260 T/tlSCP UNIT NUMBER CO) 0 ? 
261 

262 Unit specific prompting Mill continue for a maximum of 4 times. 

263 depending on the users response to the "NUMBER OF UNITS" question. 
264 

265 
266 

267 2.2.1 Definition Of Hardmare Questions - 
266 

269 CHANGE HAROUARE - If you Mant to change the hardMare p- table to be 

270 used in the testing this question must be ansMsred yes. This question 

271 must be ansMsred Mith a yes on the initial start of the program. 
272 

273 NUMBER Of UNITS - Number of units to test in decimal. 
274 

275 TKIP ADDRESS - The base address for this unit. 
276 

277 T/MSCP UNIT NUMBER - The unit number of the controller board aa 

276 specified by MSCP. 
279 

260 2.5 SoftMsrc Questions 
261 

282 AnsMSring of the softNsre questions Is alMays optional. Default 

283 values for a specific question can be obtained simply by typing a 

284 <CR>. 

265 CHANGE SU CD ? no default 
286 

287 ENABLE TIME OF DAY CLOCK CD N ? 

286 IM^UT HOUR IN 24 HOUR FORMAT COHIT LEADING ZERO) CO) 0 ? 

289 IW»UT MINUTES COMIT LEADING ZERO) CD) 0 ? 

290 CHANGE CONTROLLER PARAMETERS CD N 7 

291 ENABLE CONTROLLER ERROR CORRECTION CD Y ? 

292 ENABLE CONTROLLER ERRW RECOVERY CD Y ? 
295 ENABLE PAD BLOCKING CD Y 7 

294 CHANGE PRINTING PARAMETERS CD N ? 

295 ENABLE SOFT ERROR REPORT PRINTING CD N ? 
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296 GNNBLC REM) SOFT ERRORS OW.Y (L) Y ? 

CLEAR MEDIA TABLE ON EVERY PASS CD N ? 

298 EMABLE PRINTING OF HEDIA DETECTS TABLE CD N ? 

299 ENABLE PR0GRW1 VARIABLES DUMP ON ERROR CD N ? 

300 ENABLE CLEAR STATS ON FATAL ERROR CD N ? 

301 CHANGE TEST PARAMETERS CD N ? 

302 DATA PATTERN CO) 0 ? 

303 Ri»* TEST 3 ONLY CD Y ? 

304 ENABLE DATA COMPARES IN TEST 5 CD Y ? 

505 ENABLE PRINT READ BUFFER IN TEST S CD N ? 

506 CHANGE COnnAM) SEQUENCE CD N ? 
307 

308 
30» 

310 2.3.1 Definition Of Sefttiar* Questions - 

311 
312 

313 ENABLE TIME OF DAY CLOCK CD N ? 

314 

SIS Th« default is to not enable the clock. This question sIIoms the 

316 operated to start a prograa Ci.ock to track time on a 24 hour basis 

317 during the running of the progre*. The clock Mill remain fairly 

318 accurate as long as the progra* is running. Any tiiKe you stop the 

319 prograM the clock Mill stop running It is therefore necessary to 

320 reset the tine Mhenever the progra* is started. 
S21 

322 

323 INPUT HOUR IN 24 HOUR FORMAT COMIT LEADING ZEROS) CD) 0 ? 

324 

329 Input the hour in a decimal numbrr leaving off any leading zeros. 
326 

327 

328 INPUT MINUTES COMIT LEADING ZEROS) '^l) 0 ? 

330 Input th« minutes in a decimal number Icb-ing off any leading zeros. 
331 

332 
333 
334 

335 CHANGE CONTROLLER PARAMETERS CD N ? 

336 

337 The default ansMor Cno) prohibits the asking of the controller 

536 parameter guest iona. To change the controller parameters type a Y. 

39 

340 ENABLE CWTROLLER ERROR CCWRECTION CD Y ? 

341 

342 If ansMored "yes" (default) the program Mill enable the controller's 

345 error correction algorithms for read errors. 
344 

S4S 

346 ENABLE CONTROLLER ERROR RECOVERY CD Y ? 
547 

348 If ansMsrad "yas" Cdefault) the program Mill enable the controller's 

349 error recovery algorithms for Mrite and read error*. 

350 
351 

352 ENABLE PAD BLOCKING CD Y ? 
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III If >n»M«rad 'y**' (default) tt*« prograB mUI enable tt«* contf-cllcr s 

J55 p«d blocking al9oritt«as to aasist in strcaaing 

557 
556 
554 

360 CHANGE PRINTING PARATCTERS (L) N 7 

\ti default wtSMer (no) prohibits the aaking of the printing paraaeter 

36 J quaotiona. To change the printing paraaetcrs type a Y. 

564 

itl ENABLE SOFT ERROR REPORTS CD N 7 

3^0 The default anaMor (no) inhibits the printing, but not the tallying of 

5I9 aoft errors as reported by the subsystea. AnSMSring the question 

370 "yes" will result in detailed error reports on the terainal for each 

371 recoverable data error. 

S7| 

374 ENABLE READ SOFT ERRORS (MLY (L) N ? 
375 

376 This question aill only be asiced tihen the above question is ansMOred 

377 no. This question alloMS the operator to enable print outs on read 
376 soft errors only. The default anstter is to nhibit all soft error 
379 printouts. 

SAO 

58 J aEAR MEDIA TABLE ON EVERY PASS (L) N ? 

364 The default ansMor (no) alloMS the tallying of media defects over 

f65 Multiple paaaea. By ansMsring the question yes. the operator can then 

366 print the tsble on every pass and see hoM the defects are affected by 

367 (»assing ever the heads. 

SAB 
SAQ 

390 ENABLE PRINTING OF NEDIA DEFECTS TABLE (L) N 7 
59 1 

392 The default ansMor (no) inhibits the p^^intin^. but not the tallying of 

393 media defects aa reported in the soft error reports by the subsystea. 

394 If the default mnmmmr is used the table aay still be printed by giving 

395 the PRINT coaaand at the supervisor proapt (0S>) after the teraination 

396 of the progrea. Ans*««r<ng the question "yes" mIII cause the printing 
39 r of the table after every peas and after a control C (C) is issued. 

598 

399 ENABLE CLEAR STATS ON FATAL ERROR (L) N 7 

400 . ... 

401 The default ans««er (no) allOMS the accumulation of statistics from 
40| pass to pass. An snsiter of "yes" results in the clearing of a devices 

403 statistical matrix folloMing any error that results in the unit's 

404 being dropped from the test sequence for the rest of the current pass. 

405 This action is intended for use primarily by Springfield volume 

406 manuf ac <.ur i ng . 
407 

409 

409 ENABLE PROGRAM VARIABLES DUMP ON FATAL ERPOR (L) N ? 
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410 

4j;i T»t>« question <• intended as • p r ng r—i and aub«y«t«a debug tool. 

412 awawerinfl tt«e question "yes* Mill cauae t*«e prograa to print out tt«e 

41S contents of approxiaately IK aorda of critical aaaory locations. This 

414 is a tiae conauaing process and t^ia q ue stion should be defaulted 

415 under ordinary circuaati 



416 
417 

tit OMNK TEST PMWCTERS (L) N ? 
420 

421 The default ansaer (no) prohibits the aaking of the test paraaeter 

4|| questions. To change the test paraaeters type a Y. 

414 DATA PATTEiW (0) 0 ? 

424 This question eliows the user to select a data pattern froa the table 

427 of pettems provided by the prograa. (See the Data Pattern section 

429 beloM.) The default anawer, "O". cauaes the prograa to cycle through 

429 all the data patterna. AnsMsring the queetion aith a nuatoer froa 1-S 

4|0 Mill causes the prograa to use that pattern only. A nuaber higher 

411 than 5 Mill cause the question to be repeated. 

ill 

4S4 RUN TEST 3 ONLY (L) v ? 
499 

4Sf AnsMOring this question "Y" (default) aill automat i eel ly cause the 

4$' prograa to run test 3 onlyi i.e., it aill no longer be necessary to 

416 use the /TES:S switch to the start coaaand. Please note that this 

439 question aill effectively override the /TES: switch if the user 

440 aishes to run a test other than 3. That is. if the user wants to run 

441 test 4 he aust specify the /TES: 4 SMitch AND ansaer this question "N". 
44| 

443 

444 ENABLE DATA COnPARES IN TEST 5 (L) N ? 

446 The default ansaer (no) disallows the data coapare function during 

447 test S. This would have to be the rase when running with a truly 
446 unknown tape. The option (yes) is given to the operator ao that when 

449 a tape is written in s known mmnnmr using this prograa the operator 

450 can thOTv run test S using data coapares. 
451 

4sf ENABLE PRINT READ BUFFER IN TEST 5 (L) N ? 
454 

453 AnsMsring this question "yes' Mill cause a printout of all data read 

456 froa tape in tast S. The deta aill be presented on a record basis. 

457 This is a tiae consuaing process, and this question should be 
456 defaulted eitcept in special cases. 

460 CHRNGC CONNANO SEQUENCE (L) N ? 
461 



462 Answering this question "Y" will cause the prograa to proapt the user 

463 for a sequence of coaaanis to be used in Test 7. (See Test 7 below.) 

464 If defaulted, this ia the laat aoftwarc question asked. 
465 
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Sio 

h 

514 



4*7 

46a 2.* C«»»w«rs«t;«n Hod* T«st Ouvstions 
4«9 

470 lln«M«riM of tftcM ^uMtion i« apti«n*l. T»wm quest ior«« Mill 

471 not b« atfkaS unI«M the operator hM < Ti»*i« r> d t»i« CHANGC CONTMNO 

472 SCOueCE «wMtier» «ith • yM. A total of Mvcn cowKontfs may b« 
47) ontorod by the oporator. 

474 

475 Tovt 7 is iw fn ds d to 9iv« Xhm uoor th« ability to Croat* a 
47$ apocific aaqw a nca of co— nda. Nota t*»at Taat 7 Mill not support th* 
477 antiro TnSCP ca— and rapartoira. it is liaitad priaarily to tl>a tap* 

476 aotien cpaaawds. To rvm Taat 7. tha uaar auat issua a STA/TCS:7 artd 
479 «u«t a n aw a r Itun Taat S Only" MitH a N(0). Tha uaar auat also anawar 
400 'Chanaa Co— and Saquanca' with a Y (yaa). Undaratand that tha prooraa 
491 deaa not chack for lagality of co— a n d aaquancas iaauad by tha uaar. 
4t2 tha ertua is on tha uoar to parfera thia chack. 

4«S 

494 Tha following auasttona aill ba aakad by tha prograa to proapt 

465 tha uoar for his tnput. 
496 

467 

466 CHD/l (0) 160 7 
469 

490 Tha uaar antars tha octal valua for tha dosirad coaaand froa th* list 

491 shoan balow. Plaaaa nota that tha c o aaand valuas ar* thoaa daf inad by 

492 tha diagnoatic. not by THSCP. Tha dafault valua for tha firat coaaand 

493 is a raaind. 
494 

495 

496 04TA PATTERN (0) 1 7 
497 

499 Tha uaar should antar tha octal valua of tha dasirad data pattarn froa 

499 th* tabla of pattams ahoan afoova. If th* coaaand doas not usa a data 

500 pattarn. any nuabar 9nt%rmi hara ia ianorad. 
50i 

SI 

504 PATTERN « DESCRIPTION 

505 

506 

507 0 ROTATE THROUGH ALL DATA PATTERNS 

509 1 ALL I'S 

509 2 ALL O'S 

' - - yORST-CASE HFM PEAK SHIFT CllO) 

<^TERNATE I'S AND O'S 
RAN(K)H DATA 
m PEAK SHIFT (1110) 
COHBINATION OF PATTERN 3 AND 5 

515 200 NO DATA PATTERN USED 
516 

517 ITEW COUNT fBTTE. RECORD. OBJECT) CD) 0 7 
519 

519 Tha purposa of thia fiaid variaa with tha typa of coaaand. For 

520 avaapla. for arita and road e oaaa n ds. tha usar aay spaeify tha racord 

521 siza. in daciaal bytas. If tha coaaa n d is a raposition coaaand. tha 



522 uaar aay apacify tha nuabar of racords. objacts or fila aarfcs. Thara 

52^ ara alaa tao apacial coaaands prov=dad ahich usa this valua in uniqua 
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t« iA<c*» <«>M w:«hM to torancio. for tt«* «>I«y coMMnd. ttt* walw« 
»«cr« IS «h« r«lativ* tfalay lanottt. vith lar«ar r j ifc i ra 
lawf r tfalara- Uac ai^ariawttat ion aay bo r«<iu«r«4 to 



ITEJWTIOM COUNT (0) I ? 

Thio fiol«i ailOMO CKo uaar to apoci'fy how niany tiaoa tho 



THio r<ol«i allOM* Cho uaor to apociry now nianv t<M« tno cp — na 
•hauM bo iaauetf to«for« tho p r ogr a a iaauoa tho r«OKt co— and. Tho 
valua la awtarad <n tfaciaal. 



Mditional 

Thia aaaa aeimawco of four qwoations will bo ropoatod up to 6 awro 
ttaaa. allowiog tho oporotor to croato a c o aaand tablo iiith aovon 
vni^um coaaawdt . Tho only noticooblo difforonco in quoation for«at Sa 
that oaeh tiaa tho coawand «uootion ia aakod. ita rolativo poaition in 
tho Taat 7 coaaand tablo is identifiod. 



2.5 AIIomAIo C< 

550 Tho folIoMir 

%i that tho octal v« 

?|2 copf'olatien to TMSCP cow a a n d opcodes. Alao not* that tho dioflnoatic 

Is doaa not chodc for- lovalitv of tho valuo ontorod or for valid coaaand 

954 aoquoncoa. Oparator orror tn oithor of thoao caaaa could roault in 

S5S bi xarpo prograa bahawior. 

5*)6 Octal Cb— and Ooacription 

i<ir 10 RO Road fortwpd 

5i« 20 m Writo 

n59 SO CHP Coapara hoat data 

^60 40 ACC Aceaao 

SO SPC Spaca records 

%ti 51 Sbaca rmc^r^* rovoraa 

5«S 60 SKf> Skip tapa aaHca 



0 Tho folloMina caaaande aro aupportad by Taat 7. Ploaaa r a a a abar 

that tho octal valuaa ara dafinod by tha prograa and havo no nuaorical 



bixarr* i 


'eaSal 


Octal I 


10 


'"So" 


20 


m 


SO 


CMP 


40 


*CC 


SO 


SPC 


SI 


SCft 


60 


SICP 


61 


5KR 


TO 


$P0 


71 


SPft 


100 


UTM 


160 


R£U 


SOO 


BR 


SIO 


DLY 


577 


END 



564 61 SKR Skip taps aarfca rovoraa 

fO $W ^aco ebjocta 

566 71 SPR Spaca objacta rovorao 

5«l' 100 WTM Writo ta^ aark 

56B 160 R£U Roai nd 

56« 500 BR Branch - itao count apoctfioa doatt nation 

570 510 DLY Oolay - itaa count apacifioa rolativo delay 

End of oaquanca - nacaaaary if aa q uan c a haa 



loaa than 7 



5'* 

574 

575 2.6 Swarviaor Run Tia* flaQa 



Thia proaraa will aupport all of tho POPll Oiagno a tic Suparviaor 
t for 



576 flaoa OKCOpt for 

57« 

560 LOE > Loop on Error . Thia flag fill not ba aupportod by thia prao*>Mi 



f 
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5ai Data rclidbU:^ tii — «» *«»t t f ni wt lv— to •■9l«Mnt*t on of 



XOM - I(#»<bit Or«p Units • This flag ^ •u«^rt«4 bv t^l« 

>r»mr— 4u» to ttw 4tev«C«* M^wantial o^ration. If an error or fatal 
•xt«nt »ia»>ana on ttw tfavico «Nara is no mmf to cont<'f>via running 
•ny — wi«tjfwl Hoy. 
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S93 TMOfI provttfM • variety i«»f »r— ttK «n it« error ^irttowt*. 

99* mmmt tihieh i« — I»>»ii»l «w ti»ry . T>»« feIleMif>g iwf or— tio*< <• 

595 i«it«ittf»tf to clarify c«rt*<n antf abbr** « at • «n« uaatf 

IJJ 

999 S.2 Coaaaiii 

•00 

Ml All mrr«r printaut* Mill cantain a f iaM intficatifta tHa c »aaaw < 

•of an MhidK tha mrf^ tmm tfatactatf. Ilafar to tha imCP aipacif icatian far 

•OS 4atailatf «aacri»t«ana of thtmm co—aw<B. Uaa. plaaaa nata t«>at 

•04 caoMAtfa cwrvantly wa a< by TKM ara intficatatf by an aatariak. 

•OS » F 

»IIO* raad 
MKT* writa 

•Of Of ceapara hoat data 

•09 ACC* aeeaaa 

•10 SPC* anaea racorda CpoaStian) 



•11 SKP* tkip tapa aarka (poaitian) 

•12 SPO* apaca abjacta (paaitian) 

• ll vmt* ttrita tapa aarfc 



efts 



0*0 an ^ . 

•!• AVL* availuBla 

,17 OML* anlini* 

•If sue aat unit eharactanatica 

•19 (tCU* pa«in4 (poaitian) 

A80 abort 

GCS* 0at c o aa a nd atatua 

f CUS* ffat unit atatua 

sec* aat «ontrollar cHaractariatica 



Tha follow ins t«#o 'epaaa n rt a ' ara uaad by TKOR far opactal 
purpoaaa and ara not actually aant aa coattanda to tha aubayataot 



NUL null - uaad by prooraa to ahila ttaiting for* laat rmaptm— 

to raal " 



ZMT tnitializ* - uaad by prograa to invotca tha UO-Port Init 
aa o ua n ca 

S.S Typa Of Error 

Each mrr^r oaaaao* includaa ona lina of taxt irtti\4»4 to daacriba 
tha typa af mrr«r datactad. Thara ara thraa diatinct aaurcaa of 

0 in fora wti an uaad by tha pro^aa to panarata tha t«xt aaa a aa a t tha 

1 atatua fiald af an and pactcatt an mrror loo fockatt arx 

datactad •rrvr eanditiana. 



5.4 Statua Errora 
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(46 Th«s« messages arc derived from the status field of an end packet 

647 and correspond directly to the status codes as defined in the TMSCP 

640 specification. 
649 

650 Invalid command issued 

651 Command aborted 

652 Unit offline 

653 Unit available error 

654 Unit Mrite protected 

655 Data compare error 

656 Data error 

657 Host buffer access error 

658 Controller error 

659 Drive error 

660 Formatter error 

661 BOT encountered 

662 Tape mark encountered 

663 Data record truncated 

664 Pos i t i on lost 

665 Serious exception 

666 Logical EOT encountered 
667 

666 
669 

670 3.5 Error Log Packets 
671 

672 Certain messages m!11 be generated as a result of receiving the 

673 "diagnostic mode" error log packet. 
674 

675 Retriable Data 

676 Hard CRC 

677 Data Underrun 

678 Data Overrun 

679 ECC Corrected 

660 CRC Error on ECC Block 

6S1 

662 

6SS 

604 

665 3.6 Program Detected Error Conditions 
666 

667 In addition to reporting errors detected by the subsystem. TKDR 

666 may generate additional error reports based on problems it detects. 
669 These error conditions are presented and defined here. 

690 

691 Invalid status received - the contents of the status field of an end 

692 packet is not a valid status as defined by 

693 TMSCP 
694 

695 Port-detected error - examination of the SA register indicated an 

696 error condition exists mi thin the controller 

696 Program command timeout - the program received no end packet from the 

699 subsystem within the predefined command time- 

700 out . 

702 Response out of sequence - the program received an end packet for a 



PARAMETER COOING 



MACRO Y0S.02 Monday 26-Aug-8S 09:54 Psqc 6-2 



SEQ IS 



703 
704 
705 
706 
707 
70S 
709 
710 
711 
712 
715 
714 
715 
716 
717 
718 
719 
720 
721 
722 
725 
724 
725 
726 
727 



sequential command other than the oldest out- 
standing command. 

Port initialization failed - the port failed to make an expected step 

transition during the HQ-Port in it sequence. 



Software data compare 
Record length short 
3.7 Drive Errors 



the program's data compare routine detected a 
m i scompar i son of read data to expected data. 

the data record read from tape Mas shorter than 
the record length expected. 



72S 


Octal 


Hex 


729 






750 


1 


01 


751 


2 


02 


752 


4 


04 


755 


6 


06 


754 


10 


08 


755 


20 


10 


756 


25 


13 


757 


44 


22 


75S 


45 


23 


739 


47 


27 


740 


201 


81 


741 


202 


62 


742 


205 


83 


745 


204 


84 


744 


205 


85 


745 


206 


86 


746 


207 


87 


747 


210 


88 


74S 


211 


89 


749 


212 


8A 


750 


213 


8B 


751 


214 


8C 


752 


215 


80 


755 


220 


90 


754 


221 


91 


755 


222 


92 


756 


223 


93 


757 


225 


95 


756 


226 


96 


759 


227 


97 



On occurrence of a Drive Error, status code of 13(8), the error 
log packet Mill noM contain a status code Mhich is the drive error 
byte as returned by the drive. This value Mill be placed in the DRV 
COOE f ielo of the error log packet. 

To understand the precise nature of the error condition it Mill 
be necessary to correlate the value presented in the printout against 
the table beloM. 



Oescr i pt i on 

Urite lock violation 
Drive fault 

Communication exception (timeout, etc.) 
Wrong track error (folloMina a turnaround) 
No cable or drive poMered off 
Synchronization failure Mrite/read 



Failure to load to BOT 

Failure to unload tape into cartridge 

General motor or tach failure 

Motor A failure 

Motor B failure 

Drive lost control of tape or bad tach 
Excessive drag in tape transport 
Failure to stop tape or remain stopped 
Cartridge insert error 
Cartridge extract error 

CO attempted to move tape with drive in error 
Deceleration timeout error 

Second attempt to balance reels in in it failed 
8155 RAM memory failure in self -test 
8155 timer failure 

Read amplit (Hd 1) too Iom in calibrate 

Read amplit (Hd 2) too Iom in calibrate 

EOT sensed in R/U/S 

BOT sensed in R/U/S 

Drive block address overfloM 



PARAMETER COOING 



HACRO YDS. 02 Monday 26 -Aug 85 09:54 Pag* 6 3 



SEQ 16 



760 


230 


98 


761 


231 


99 


762 


231 


9A 


765 


233 


98 


764 


^ V ^ 

234 


9t 


765 


235 


90 


766 


236 


9E 


767 


237 


9F 


7e0 




nU 


769 


241 


Al 


770 


242 


A2 


771 


243 


A3 


772 


244 


A4 


773 


245 


A5 


774 


246 


A6 


775 


247 


A7 


776 






777 


250 


A8 


778 


251 


A9 


779 


252 


AA 



Oriva block addraaa undarfloM 
Sarvo arror - axc*%diva apaad variations 
Failura in tracking currantly not uaad 
CoiMnand •rror - not racognizad 
Illagal coiMiand - incompatibla Mith driva atata 
Urita lock *rror 
Urita gata at wrong t!ma 

No Mrita gata for calibration track Mrita 
Error sansing cal track 1 - bad haad? 
Error sansing cal track 2 - bad haad? 
Datactlon of adgas of cal trk 1 out of spac 
Oataction of adgas of cal trk 2 out of spac 
Off sat of cal trk 2 from 1 is too graat 
Search for bottom adga of tapa fa! lad 
Bottom tapa adga tolaranca *rror 
Oriva is ovarhaating 

No currant in LEO of SOT sansor (cabla?) 
Hall awitch sansa lines Motor A questionable 
Tachometer failure 

?«0 

781 3.8 Hard Error Reports 

782 

783 Hard mrror reports, if not user disabled. Mill be generated 

784 anytime an error recovery process does not successfully complete. 
785 

786 Hard Error reports will typically be of the following format: 

787 

7A(5 CZTUl HRD ERR 00014 ON UNIT 00 TST 003 SUB 000 PC: 020460 

789 HARD DATA ERROR 

790 COMMAND: RD T/MSCP UNIT: 000(0) 

791 PASS: 1(D) DATA PAT: 01(0) 

792 RECORD BYTE COUNT: 457(0) 

793 OBJECT CNT : 000000026352(0) 
794 

795 RESPONSE PACKET 

796 HIGH UORD LOU WORD 

797 000000(0) 026532(0) 

798 000000(0) ooooooro) 

799 000050(0) 010240(0) 

800 000000(0) 000733(0) 

801 000000(0) 000000(0) 

802 000000(0) 000000(0) 
603 000000(0) 000000(0) 

804 000000(0) 001413(0) 

805 000000(0) 000733(0) 
806 

807 NOTE 
808 

809 Soma error reports Mill not include a Response Packet 

810 field. For example a Command Timeout Error, by 

811 definition, results only Mhen no response to a command 

812 has been received prior to expiration of the programs 

813 Match dog timer. 
814 

815 
816 
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817 
818 
819 
820 
821 
822 
8?i 
824 
625 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
836 
839 



3.9 Soft Error Reports 

Soft error reports. !f not user disabled. Mill be generated 
anytiMe an error recovery process is successful. The soft error 
report Mill include the number of retries necessary in order to 
successfully coaplete th« current operation. Soft Error reports Mill 
typically be of the folloMing format: 

CZTUl SFT RO ERR 00014 ON UNIT 00 TST 003 SUB 000 PC: 020460 

ECC RECOVERED DATA ERROR 

CCMMANO: RO T/MSCP UNIT: 000(0) 

PASS: 1(D) DATA PAT: 01(0) 

OBJECT CNT : 000000026352(0) 

TAP OBJ CNT: 000000026352(0) 

TRK NUM: 6(D) LEVEL: 0(D) RETRIES: 1(D) 
LOG BLK NUH: 0(D) PHYS BLK NUM: 9932(D) 

DRV FLGS: 041(0) 
INTERN STATUS: 002(0) 
TAP CNT I: 015(0) 
RD/UR STATE: 000000(0) 



DRV CODE 
DRV STATE 
TAP CNT 0 
TAP CNT 2 
OPER FLGS 



000(0) 
000000(0) 
227(0) 
035(0) 
000000(0) 
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SEQ 18 



841 
842 
841 
844 
045 
846 
847 
848 
849 
850 
851 
852 
653 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
678 
879 
660 
861 
662 
663 
664 
685 
686 
667 
666 
869 
890 
691 
692 
693 
694 
895 
896 
697 



4 PERFORMANCE AND PROGRESS REPORTS 
4.1 Statistics natrix 



CH 1 



READ 



SOFT DATA ERRORS 

RETRY RECOVERED X 
ECC CORRECTED X 
HARD DATA ERRORS X 
CRC ON ECC BLOCK X 
DATA COMPARE ERRORS X 
DATA UNOERRUN N.A. 
DATA OVERRUN X 
mSPOSITIONS X 
OTHERS X 
TIMES DROPPED X 
BYTES WRITTEN X. XXX. XXX. XXX 

BYTES READ X. XXX. XXX. XXX 

TRK PHY BLK HUR HRD SUR SRD 



CH 2 

X 
X 
X 
X 



URITE 
CH 1 CH 2 



X 
X 



N.A. 

N.A. 
N.A. 
X 

N.A. 
X 



0 
0 

1 
1 



26 
2474 

126 
10374 



0 
0 

0 
0 



0 
0 

0 
0 



0 
0 

0 
0 



4.2 Read Error Definition 

1. SOFT DATA ERRORS 

0 Ratry Correetad ECC disablad or repositioning nss 
required because >1 block in ECC group Nas bad. 

0 ECC Corrected - CRC error occurred on data block but ECC 
has corrected it 

2. Hard Data Errors - Maximun retries exhausted and data not 
recovered . 

3. CRC Error on ECC Block - Data Nas read successfully, but CRC 
error occurred 

4. Data Co«pare - No hardware detected errors, but the data 
coapare failed, on an associated ECC block. 

5. Data Overrun - The controller did not have sufficient buffer 
space for read data. 



! 
I 
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998 4.3 Urite Error DcFinition 
900 

901 1- Retry Recovered - Operational itrite aloorith* Mas enabled and 

902 controller successfully recovered frow a write error. (In 

903 this case, media- induced Mrite errors will appear in this 

904 category . ) 

90S 

906 2. Hard Data Errors - Urite retries exhausted and block not 

907 successfully Mritten. 
900 

909 3. Underrun - Controller ran out of write data blocks prior to a 

910 record boundary. 

Hi 
III 

915 4.4 Miscellaneous 



li 

I? 



II 



929 



1. Mispositions - Times the drive lost position on tape. 

2. Others - This is a tally of all errors not specifically 
called out in the error matrix. 

3. Times Dropped - Times the drive has been dropped by the 
program. 
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SEQ 20 



927 5 TEST DESCRIPTIONS 

928 

929 5.1 Test 1 Basic Function Test 

930 

931 This test will execute a subset of the available co««ands on the 

932 unit under test. It serves as a <Ki>ck verify test to ascertain that 

933 the unit can aove tape and Mritc/read predictably, without error. The 

934 subset of legal coanands Mill be issued in a coherent manner. 
935 

93c The testing sequence, performed once Mill be as foIlOMS: 

937 

938 1. Execute online 

939 

940 2. Rewind to ensure that tape is at BOT. 

941 

942 3. Write two tapeaarks. just after BOT. 

943 

944 4. Backspace tt«o tapenarks. 

945 

946 5. Space forward to LEOT. 

947 

948 6. Rewind. 

949 

950 7. Urite, using increasing byte counts, rotating through all 

951 data patterns, using decreasing file lengths. Files to be 

952 separated by tape marks. 
953 

954 8. Urite LEOT after previous sequence. 

955 

956 9. Rewind. 

957 

956 10. Read records of the first file, 

959 

960 11. Space records over the second and third files. 

962 12. Space objects over the fourth file. 

963 

964 13. Read records of the fifth file. 

965 

966 14. Skip reverse over four tape marks. 

967 

968 IS. Skip forward one tape mark, 

969 

970 16. Read the second file set. 

971 

972 17. Space objects over the third record set. 

973 

974 18. Read the fourth record set. 

975 

976 19. Space objects to LEOT. 

977 

978 20. Space objects reverse to Just after BOT, 

979 

980 21. Skip four tape marks. 

981 

982 22. Space records over the fourth record set. 

983 
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904 23. Skip a tape aark . 
985 

906 24. Read the sixth record set. 
987 

988 25. Skip tMO tape aarks. 
989 

990 26. Space objects reverse to the end of the second file set. 
991 

992 27. Skip a tape aark. 



993 

994 28. Read the third file set, 

995 

996 29. RsMind tape, 

997 

998 

999 5.2 Test 2 Quick Verify Read/Urite Test 

1000 
1001 

1002 This test rewinds the tape, then executes the folloMing sequence: 

1003 

1004 1. Write record set, 

1006 2. Urite LEOT, 

1007 

1008 3. RcMind, 

1009 

1010 4. Reposition to just written record set, 

1011 

]012 5. Read the current record set. 

1013 

1014 6. Skip to LEOT. 

1015 

1016 for 5 iterations or until fatal error is encountered. This test 

1017 permits retries, fixed record length (4096 bytes decimal), fixed 

1018 number of records/set (250), and predetermined data patterns. This 

1019 test Hill execute in a round-robin manner. 
1020 

1021 
1022 

1023 5.3 Test 5 Complex Read/Write Test 

1024 

1025 

1026 This test rewinds the tape, and executes the following sequence: 

1026 1* Write N records, 

1029 

1030 2 . Wr I te a tape mark . 

1031 

1032 3. Repeat 1 and 2 until EOT is reached. 

1033 

1034 4. Write 2 tape marks (LEOT). 

1035 

1036 5. Rewind, 

1037 

1038 6. Read N records. 

1059 

1040 7. Space 1 record (should see unexpected tape mark) 



! 
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1041 

1042 8. Repeat 6 and 7 until LEOT. 

1043 

1044 

1045 Nuaber of records CN). and record size Mill be randoaly selected. 

1046 This sequence Mill perait hardMsre retries, if enabled by the 

1047 operator. This test Mill run until EOT. LEOT or fatal error is 

1048 detected. All data patterns including randoK data Mill be used in 

1049 this test. 
1050 

lOSl 5.4 Test 4 Write Interchsnge Tape 

1052 

1053 This test Mill rcMind the tape, then Mritc until EOT or a fatal 

1054 error is encountered. This test Mill keep track of the number of 

1055 records and files Mritten. If a fatal error is encountered, a weasa^e 

1056 Mill report it. the tape on the unit Mill be reMound. and the unit 
1097 prevented froat executing further Mrite operations. 

1098 
1059 
10«0 

1061 5.5 Test 5 Read UnknoMn Tape 

1062 

1063 This test Mill rsMind a tape, then read until EOT. LEOT or fatal 

1064 error is encountered. This test Mill keep track of the number of 

1065 records and files read. If a fatal error is encountered, a iMssage 

1066 Mill report it. the tape on the unit Mill be roMound. and the unit 

1067 prevented from executing further read operations. 
1068 

1069 NOTE 
1070 

1071 Tests 4 and 5 can be used to perform a media 

1072 interchange test for multiple drives. The program 

1073 Mill not attempt to make any determination as to 

1074 whether the unit that Mrote the tape or the unit 

1075 reading the tape is at fault for any errors. 
1076 

1077 

1078 5.6 Test 6 Start/Stop Ur ite/Read Test 

1079 

1080 

1081 This test rewinds the tape, then executes the folloMing sequence: 

1082 

1083 1. Write record set, stopping betMeen each record. 

1084 

1085 2. Write a tape mark. 

1086 

1087 3. Repeat steps one and two until tMO tracks nave been written. 

1088 

1089 4. Write LEOT. 

1090 

1091 5. ReMind, 

1092 

1093 6. Read the record set stopping betMeen each record. 

1094 

1095 7. Skip a tape mark, 

1096 

1097 8. Repeat •^'^^s six and seven until LEOT is detected. 



I 
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1090 
1099 
1100 
1102 
1102 
llOS 
1104 
1109 
1106 
1107 
llOS 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1119 
1123 
1134 
USS 
1161 

1163 000000 
1164 
1165 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1184 
1185 



002000 



002000 



002000 



9. Rewind. 

Until fatal error is encountered. This test peraits retries, fixed 
record length (8096 bytes deciaal), fixed nuaber of records/set (250). 
and predateraincd data patterns. This test Mill execute in a 
round-robin a ann e r . 



5.7 Test 7 Conversation Test 

Conversation aode Mill run Mith or Mithout error reports. The 
user can select, froa a list of coaaands. a sequence Mhich can be used 
to eaulate a known failure aode. Between coaaands. the user can 
specify unique delays, ranging from 10 to 250 as. The user can follow 
each tape coaaand Mil integer values, the first indicating the 
byte/record/f i le count and the second indicating the 4 of repatttions 
necessarv for that coaaand. 

a 

.TITLE PROGRAM HEADER AND TABLES 
.S6TTL PROGRAfl HEADER 



•ENABL 
.OSABL 



BGNHOO 



ABS.AMA 
GBL 



2000 



; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
J THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
< -- 

POINTER BGNSU . BGNSFT . BGNRPT . ERRTBL , BGNDU . BGNSE TUP 



1166 002000 




HEADER 


CZTUl.A. 


0.15000.1.0 


002000 




LINAME: : 




lOIAGNOSTIC NAME 


002000 


103 


.ASCII 


/c/ 


002001 


132 


.ASCII 


/z/ 




002002 


124 


.ASCII 


/T/ 




002003 


125 


. ASCII 


/u/ 




002004 


061 


.ASCII 


/I/ 




002005 


000 


.BYTE 


0 




002006 


000 


• BYTE 


0 




002007 


000 


.BYTE 


0 




002010 




LIREV: : 




; REVISION LEVEL 


002010 


101 


.ASCII 


/A/ 


002011 




LIOEPO: : 




sO 


002011 


060 


.ASCII 


/o/ 


002012 




LIUNIT:: 




i NUMBER OF UNITS 


002012 


000001 


.WORD 


TIPTHV 




002014 




LITIHL:: 




> LONGEST TEST TIME 



(POOPAM MCAOef^ AMD TABLES 
fPOGUAM MtAOCP 



HAC90 Y05.02 













1 tHPTP 






LtSPCP 


VVsWcv 








W wTWr 1 r 








WCCAw 








LtSPTP 




^iWCcJlw 










A AW f *W 


LtSTA- 








wwwwW 










0090S9 


wwwwVw 


LtOTYP 






002014 


000001 

wWww* 




O090SA 








oooooo 




OO2O40 




LIOTP: 


002040 


002124 




002042 




LtPRIO 


002042 


OOOOOO 




002044 




LIENVZ 


O02044 


oooooo 


LtEXPl 






002046 


OOOOOO 


LtHRCV 


0020S0 




0020SO 


004 




009051 


000 




002092 




LtEF:: 


002052 


OOOOOO 

WWWW^'W 




002054 


oooooo 


LtSPC: 


002056 
002056 




oooooo 


LtDEVP 


002060 

VW» WWW 




002060 


002200 


LIREPP 


002062 




002062 


0S4S96 




002064 




LICXP4 


002064 


OOOOOO 


LtEXPS 


0020*6 

VW» www 




002066 

WWW www 

002070 

ww«w • w 


OOOOOO 


L*AUT: 


002070 


OOOOOO 


LtOUT: 


002072 




002072 


040270 




002074 




L«LUN: 


002074 
002076 


OOOOOO 


I.IOESP 


002076 


002142 




002100 




LtLOM) 


002100 


1040S5 


LIETP: 


002102 




002102 


01S166 




002104 




002104 


036644 
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SEQ 2* 



.UORO 15000 

.yora> L»HM)o 

.UOftO LISOTT 

.UORO L*HU 

.UORD L«SU 

.WORD LILASr 

.UORO 0 

.WORD 0 

.UORO 1 

.UORO 0 



POINTER TO H.U. QUES. 
POINTER TO S.U. OUES. 
PTR. TO OEP. H.U. PTWLE 
PTR. TO S.U. PTABLE 
OIAG. END M>ORESS 
RESERVED FOR APT STATS 

i DIAGNOSTIC TYPE 
sAPT EXPANSION 



I PTR. TO DISPATCH TABLE 
.UORO LtOISPATCH 

{DIAGNOSTIC RUN PRIORITY 

.UORO 0 

:FLAGS DESCRIBE HOU IT UAS SETUP 

.UORO 0 

{EXPANSION UORD 

UORO 0 

i :SVC REV AND EDIT « 

.BYTE C«REVISION 
.BYTE C»EDIT 

:DIAG. EVENT FLAGS 

.UORD 0 
.UORO 0 

.UORO 0 

; POINTER TO DEVICE TYPE LIST 

.UORO LtOVTYP 

.PTR. TO REPORT CODE 

.UORO LIRPT 
.UORO 0 
.UORO 0 

»PTR, TO ADD UNIT CODE 

.UORO 0 

iPTR. TO DROP UNIT CODE 

.UORO L«DU 

:LUN FOR EXERCISERS TO FILL 

.UORO 0 

i POINTER TO OIAG. DESCRIPTION 

.UORD LIOESC 

; GENERATE SPECIAL AUTOLOAD ENT 

EHT EtLOAO 

; POINTER TO ERRT8L 

.UORO LtERRTBL 

I PTR. TO INIT CODE 

.UORD L«INIT 



HCAOeo »<0 TA0LCS 
CAOCAA'^ HCAOCP 

0021M 0S7760 
002110 

002110 &577J6 
002112 

002112 020640 
002114 

002114 000000 
002116 

002116 000000 
002120 

002120 000000 
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LtCO»:: 




:PT1». TO CLEAN UP CODE 


.MORO 


LtCLEM* 




L4IICP:: 




if>TR. TO AUTO CODE 


.WORD 


LI AUTO 




L4P1IT:: 




iPTR. TO PROTECT TABLE 


.worn 


LIPROT 




LITEST:: 




iTEST tMVER 


yoRO 

LtOLT:: 


0 


tOO.AY COUNT 




0 




LMOHE:: 




iPTR. TO HIGH HEn 


.yoRO 


0 





DISPATCH TNtLC 



IIM 

nn 



U9« 
1197 
U9S 



002122 
002122 
002124 
002124 
00212ft 

oo?ilo 

002112 
002114 
0021M 
002140 



002142 
002142 
002142 



1200 
1201 

laol 

1204 002200 

ooPoo 

002200 

120S 



000007 

040S04 
04262ft 
04|44« 
044 Mft 
044740 
04SS14 
04ftllft 



lOS 



124 



tvatO T0S.02 Hona^ 2ft-Aua-8S 09-54 t^mtm 9 
SBTTL DISPATCH TUSLE 



TIC DISPATCH TABLE OMTAINS TT€ STAATINC ACORCSS Of EACH TEST 
IT IS ISED BY THE SUPERVISOR TO DISPATCH TO EACH TfST 



DISPATCH 7 
.WORD 7 
LIOISPATCM: T 

Tl 
T2 
T5 
T4 

.WORD T5 
Tft 
T7 



SCO 2ft 



132 



DESCRIPT <CZTU1A0 TU81 DATA RELIAB TEST> 

L90CSC ■ * 

124 ".ASCIZ /CZTUIAO TUBl DATA RELIAB TEST/ 

.evcN 



I IMHES OF DEVICES SUPPORTED BY PROGRAfl 



12S 



OEVTYP *T««1> 
LIOVTYPi: 

070 .ASCIZ «TU81« 
.EVEN 



PPOGRA/1 HEADER AND TABLES 
DEFAULT HARDU'ARE P -TABLE 



1207 
1206 
1209 
1210 
1211 
1212 
1213 
1214 

1215 002206 
002206 
002210 
002210 

1216 

1217 002210 
121« 002212 
1219 

1220 002214 
002214 



000002 



174500 
000000 
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.SBTTL DEFAULT HARDUARE P TABLE 



THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P TABLES, 
i - - 



SEQ 27 



L«HU: : 
DFPTBL : 



L 10000: 



BGNHU 
.WORD 



174500 
0 

ENDHU 



DFPTBL 

L10000-L$HW/2 



;TKIP ADDRESS 
sT/MSCP UNIT NUMBER 



PRO''>RAn HEADER AKO TABLES 
SOFTWARE P- TABLE 



1222 
1223 
1224 

1225 
1226 
1227 
122S 
1229 



1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1230 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1256 
1259 
1260 
1261 
1262 
136^ 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
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.SBTTL SOFTWARE P TABLE 



SEQ 28 



THE SOFTWARE P TABLE CONTAINS THE VALUES OF THE PROGRAM 
PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 









BGNSW 


SFPTBL 






002214 


000042 




.WORD 


L 10001 


L«SW/2 




002216 




LISW: : 










002216 




SFPTBL : 










002216 


000 


CLOCK- • 




BYTE 


0 


; ENABLE TIME OF DAY CLOCK 


002217 


000 


HOURS: : 




.BYTE 


0 


J HOURS FOR TIME OF DAY CLOCK 


002220 


000 


MINUTE ; 




• BYTE 


0 


J MINUTES FOR TIME OF DAY CLOCK 


002221 


000 


SECOND: 




.BYTE 


0 


{SECONDS FOR TIME OF DAY CLOCK 


002222 


000 


SUBSEC: 




.BYTE 


0 


:SUBSECONDS FOR TIME OF DAY CLOCK 


002223 


000 


CONTPA: 




.BYTE 


0 


(CHANGE CONTROLLER PARARMETERS 


002224 


001 


SERCOR: 




.BYTE 


1 


; ENABLE ERROR CORRECTION FLAG 


002225 


001 


SERREC : 




.BYTE 


1 


(ENABLE ERROR RECOVERY FLAG 


002226 


001 


DENSITY 




.BYTE 


1 


{INITIAL TEST DENSITY CGCR) 


002227 


000 


PRNTPA: 




.BYTE 


0 


{CHANGE PRINT PARAMETERS 


002230 


000 


SOERRP : 




.B^IE 


0 


{ENABLE SOFT ERROR REPORT FLAG 


002^31 


001 


RDSOER : 




.BYTE 


1 


(ENABLE READ SOFT ERRORS ONLY 


002252 




T7TBL: : 








{COMMAND TABLE TOP 6 


002232 


000 


NOCLR : : 




.BYTE 


0 


(ENABLE CLsAR STATS ON FATAL ERROR 


002233 


000 


DMPFLG: 




.BYTE 


0 


{ENABLE PROGRAM TABLE DUMP ON ERROR 


002254 


000 


TESTPA: 


. 


.BYTE 


0 


{CHANGE TEST PARAMETERS 


002255 


000 


PATERN: 


: 


.BYTE 


0 


(CHANGE DATA PATTERN 


002256 


001 


T5CMP: : 




. B I Tt 


1 


{ENABLc DATA COMPARES IN TEST 5 


002257 


000 


CHGFLG: 




.BYTE 


0 


{CHANGE CMD SEQ TABLE FLAG 


002240 


160 


T7CMD1: 




.BYTE 


REW 


{REWIND 


002241 


000 






.BYTE 


NULPAT 




002242 


000000 






.WORD 


0 




002244 


000001 






.WORD 


1 




002246 


020 


T7CM02: 




.BYTE 


WR 


{WRITE RECORDS 


002247 


007 






.BYTE 


PAT7 




002250 


004000 






.WORD 


2048. 




002252 


000310 






.WORD 


200. 




002254 


100 


T7CMD3: 




.BYTE 


WTM 


(WRITE TAPE MARK 


002255 


000 






.BYTE 


NULPAT 




002256 


000000 






.WORD 


0 




002260 


000002 






.WORD 


2 




002262 


061 


T7CM04: 




.BYTE 


SKR 


{SKIP TAPE MARKS REVERSE 


002263 


000 






.BYTE 


NULPAT 




002264 


000000 






.WORD 


0 




002266 


000002 






.WORD 


2 
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SOFTWARE P-TABLE 



1276 












1277 


002270 


160 


T7CriD5: 




.BYTE 


1278 


002271 


000 






.BYTE 


1279 


002272 


000000 






.WORD 


1280 


002274 


000001 






.WORD 


1281 












1282 


002276 


010 


T7CM06 : 




.BYTE 


1283 


002277 


007 






.BYTE 


1284 

1285 


002300 


004000 






.WORD 


002302 


000310 






.UORD 


1286 












1287 


002304 


060 


T7CMD7: 




.BYTE 


1288 


002305 


000 






.BYTE 


1289 


002306 


000001 






.WORD 


1290 


002310 


000002 






.UORD 


1291 












1292 


002312 


160 


T7EN0 : 




• BYTE 


1293 


002313 


000 






.BYTE 


1294 


002314 


000000 






.UORD 


1295 


002316 


COOOOl 






.WORD 


1296 












1297 


002320 


177777 






.UORD 


1298 










-EVEN 


1299 












1300 


002322 
002322 




L 10001: 


ENDSU 




1301 












1302 


002322 






ENOnOD 
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REU 
NULPAT 
0 
1 

RD 

PAT7 

2048. 

200. 

SKP 

NULPAT 

1 

2 

REU 

NULPAT 

0 



:REUIND 
:READ RECORDS 
:SKIP TAPE MARK 
{REWIND 



PROGRAH HEADER AND TABLES 
SOTTUARE P- TABLE 

1505 
1S16 
1317 
1392 

1393 002322 

1394 

1395 

1396 

1397 

1396 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 002322 



000040 
000037 
000036 
000035 
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.TITLE GLOBAL AREAS 

.SBTTL GLOBAL EQUATES SECTION 

BGNMOO 

/»\/«\/«\/«\/«\/*\/«\/«\/«\/«\/«\/«\/«\/«\/«\/*\/«\/«\/«\/«\/«\/«\/«\/*\ 
i.O SUPERVISOR DEFINED LITERALS 



THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
ARE USED IN MORE THAN ONE TEST. 



SEQ 30 



EQUALS 
BIT OIFINITIONS 



100000 


BIT15-. 


• 100000 


040000 


BIT14-- 


• 40000 


020000 


BIT13-' 


• 20000 


010000 


BIT12- 


• 10000 


004000 


BITll" 


• 4000 


002000 


BITIO-' 


■ 2000 


001000 


BIT09-' 


• 1000 


000400 


BIT08- 


> 400 


000200 


BIT07-' 


' 200 


000100 


BIT06*' 


' 100 


000040 


BIT05-' 


■ 40 


000020 


BIT04-> 


• 20 


000010 


BIT03-- 


■ 10 


000004 


BIT02- 


• 4 


000002 


BITOl- 


■ 2 


000001 


BITOO- 


■ 1 


001000 


BIT9-- 


BIT09 


000400 


BIT8-- 


BIT08 


000200 


BIT7" 


8IT07 


000100 


BIT6-- 


BIT06 


000040 


8115" 


8IT05 


000020 


BIT4" 


BIT04 


000010 


BIT3" 


BIT03 


000004 


BIT2-- 


BIT02 


000002 


BITl" 


BITOl 


000001 


BITO" 


eiToo 



EVENT FLAG DEFINITIONS 

EF32!EF17 RESERVED FOR SUPERVISOR TO PROGRAH COMMUNICATION 



EF. START - - 
EF. RESTART-' 
EF. CONTINUE* 
EF.NEU" 



32. 
31. 
30. 
29. 



BIT POSITION IN SECOND STATUS UORO 
(100000) START COMMAND WAS ISSUED 
C 040000) RESTART COMMAND UAS ISSUED 
C 020000) CONTINUE COMMAND UAS ISSUED 
(010000) A NEU PASS HAS BEEN STARTED 



GLOBAL AREAS riACRO Y05.02 
GLOBAL EQUATES SECTION 

000034 



000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
C00040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 

1407 
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Er.PUR" 28. 

PRIORITY LEVEL DEFINITIONS 

PRI07-- 340 

PRI06-- 300 

PRI05-- 240 

PRI04-- 200 

PRI03-- 140 

PRI02-- 100 

PRI01-- 40 

PRIOO" 0 

lOPERATOR FLAG BITS 



EVL- 
LOT- 
ADR- 
lOU- 
ISR- 
UAn- 
BOE- 
PNT- 
PRI- 
IXE- 
IBE- 
lER- 
LOE- 
HOE- 



4 

10 
20 
40 
100 
200 
400 
1000 
2000 
4000 
10000 
20000 
40000 
100000 



(004000) A POUER-FAIL/POUER UP OCCURRED 



GLOB At. AREAS MACRO Y0S.02 
GLOeAL EQUATES SECTION 

1409 
1410 
1411 
1412 
1413 
1414 
1415 

1416 000001 

1417 000020 
1416 000010 

1419 000040 

1420 000013 

1421 000022 

1422 000026 
142S 000002 

1424 000003 

1425 000011 

1426 000041 

1427 000045 
1420 C00004 

1429 000012 

1430 000042 

1431 000044 

1432 000200 

1433 000100 

1434 000102 
1435 

1436 

1437 040000 

1436 020000 

1439 001000 

1440 000400 

1441 000200 

1 442 000100 

1443 000040 

1444 000020 

1445 000010 

1446 000004 

1447 C00004 

1448 000002 

1449 000002 

1450 000001 

1451 000001 
1452 

1453 

1454 000000 

1455 000004 

1456 000010 

1457 000012 
1456 000014 
1459 000020 
1460 

1461 

1462 000014 

1463 

1464 

1465 000014 
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,/»\/»\/»\/«\/«\/*\/»\/«\/«\/«\/«\/«\/»\/«\/»\/»\/»\/«\/»\/*\/*\/»\/«\/«\ 
: 2.0 TMSCP COmANO LITERALS 

;/*\/*\/*\/*\/*\/*\/«\/*\/*\/*\/«\/*\/«\/*\/*\/*\/»\/*\/»\/»\/*\/*\/»\>'*\ 



SEQ 32 



; 2.1 

OP. ABO 

OP.ACC 

OP.AVL 

OP. CMP 

OP.OAP 

OP.ERS 

OP. ERG 

OP.GCS 

OP.GUS 

OP.ONL 

OP.RD 

CP. REP 

OP . sec 
OP . sue 

OP.UR 

OP.UTM 

OP.ENO 

OP.AVA 

OP.ACP 

; 2.2 

MO. CMP 

MO.CSE 

MO. SEC 

MO.SER 

MD.DLE 

MD.im 

MO.EXC 

MO.UNL 

MO. REV 

MO.OBC 

MO. SUP 

MD.RUD 

MD.ALL 

MO.SPD 

MD.NXU 

s 2.3 
P.CRF 
P. UNIT 
P . OPCD 
P. MOO 
P.BCNT 
P. BUFF 

s 2.4 
P.OTRF 

; 2.5 
P.UNFL 



COMMAND PACKET OPCODES 
01 
20 
10 
40 
13 
22 
26 
02 
03 
11 
41 
45 
04 
12 
42 
44 
200 
100 
102 

COMMAND MODIFIERS 
040000 
020000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000004 
000002 
000002 
000001 
000001 

GENERIC COMMAND PACKET 
0 
4 
10 
12 
14 
20 



ABORT COMMAND 

ACCESS COMMAND 

AVAILABLE COMMAND 

COMPARE HOST DATA COMMAND 

DETERMINE ACCESS PATH COMMAND 

ERASE COMMAND 

ERASE GAP COMMAND 

GET COMMAND STATUS COMMAND 

GET UNIT STATUS COMMAND 

ONLINE COMMAKH) 

READ COMMAND 

REPOSITION COMMAND 

SET CONTROLLER CHARACTERISTICS COMMAND 

SET UNIT CHARACTERISTICS COMMAND 

WRITE COMMAND 

WRITE TAPE MARK COMMAND 

END MESSAGE FLAG 

AVAILABLE ATTENTION MESSAGE 

ACCESS PATH ATTENTION MESSAGE 



COMPARE 

CLEAR SERIOUS EXCEPTION 

SUPPRESS ERROR CORRECTION 

SUPPRESS ERROR RECOVERY 

DETECT LEOT 

IMMEDIATE 

EXCLUSIVE ACCESS 

UNLOAD 

REVERSE 

OBJECT COUNT 

SET WRITE PROTECT 

REWIND 

ALL CLASS DRIVERS 

SPEED 

NEXT UNIT 



OFFSETS 

COMMAND REFERENCE NUMBER 
UNIT NUMBER 
OPCODE 
MODIFIERS 
BYTE COUNT 
BUFFER DESCRIPTOR 



ABORT AND GET COMMAND STATUS OFFSETS PACKET OFFSETS 

14 J OUTSTANDING COMMAND REFERENCE NUMBER 

ONLINE AND SET UNIT CHARACTERISTICS PACKET OFFSETS 
14 .-UNIT FLAGS 



GLOBAL AREAS MACRO YDS. 02 
GLOBAL EQUATES SECTION 
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SEQ 33 



1466 


000034 


P . DVPM 


1467 


000040 


P.FORn 


1468 


000042 


P . SPED 


1469 






1470 




5 2.6 


1471 


000014 


P. REDO 


1472 


000020 


P.TMGC 


1473 






1474 




; 2.7 
P.VRSN 


1475 


000014 


1476 


000016 


P.CNTF 


1477 


000020 


P.HTMG 


1478 


000024 


P. TIME 


1479 


000034 


P.CTPn 


1480 







34 
40 
42 



sDEVICE DEPENDENT PARAMETERS 
i FORMAT 
: SPEED 



REPOSITION COMMAND PACKET OFFSETS 

14 : RECORD/OBJECT COUNT 

dO I TAPE MARK COUNT 

SET CONTROLLER CHARACTERISTICS PACKET OFFSETS 
14 }MSCP VERSION 

16 .-CONTROLLER FLAGS 

20 J HOST TIMEOUT 

24 iQUAD-UORD TIME AND DATE 

34 : CONTROLLER DEPENDENT PARAMETERS 



GLOBAL AREAS MACRO Y0S.02 
GLOBAL EQUATES SECTION 

1482 
1483 
1464 
1485 
1486 

1487 000040 

1488 000020 

1489 000010 
1490 

1491 

1492 000200 

1493 000100 

1494 000040 

1495 000020 
1496 

1497 

1498 020000 

1499 020000 

1500 010000 

1501 C00200 

1502 000040 

1503 000002 

1504 000001 
1505 

1506 

1507 000000 

1508 000004 

1509 000010 

1510 000011 

1511 000012 

1512 000014 
1513 

1514 
1515 

1516 000034 

1517 000040 
1518 

1519 

1520 000014 

1521 000020 
1522 

1523 

1524 000014 

1525 000016 

1526 000024 

1527 000034 

1528 000040 

1529 000042 

1530 000044 

1531 000050 

1532 000051 

1533 000052 

1534 000053 
1535 

1536 

1537 000044 

1538 OOOOSO 
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J 3.0 TMSCP END PACKET LITERALS 

,/»\/»\/«\/«\/*\/»\/»\/»\/»\/»\/«\/«\/«\/»\/»\/»\/»\/»\/*V/»\/*\/»\/»\/»\ 



SEQ 34 



! 3.1 
EF.LOG 
EF.SEX 
EF.EOT 

I 3.2 
CF.ATN 
CF.MSC 
CF . OTH 
CF . THS 

: 3.3 

UF.WPH 

UF.VSU 

UF.UPS 

UF.RMV 

UF.VSS 

UF.CMU 

UF.CMR 

5 3.4 

P.CRF 

P. UNIT 

P . OPCO 

P.FLGS 

P.STS 

P.BCNT 

; 3.5 

P.POS 
P . TRBC 

: 3.6 
P.OTRF 
P . CMST 

! 3.7 

P.flLUN 

P.UNFL 

P.UNTI 

P.MEDI 

P . FORM 

P. SPED 

P.FMEM 

P.CSVR 

P.CHVR 

P.USVR 

P.UHVR 

I 3.8 
P . HXUR 
P.NREC 



END PACKET FLAGS 
000040 
000020 
000010 

CONTROLLER FLAGS 
000200 
000100 
000040 
000020 

UNIT FLAGS 

020000 
020000 
010000 
000200 
000040 
000002 
000001 



> ERROR LOG GENERATED 
! SERIOUS EXCEPTION 
tEOT ENCOUNTERED 



ENABLE ATTENTION INTERUPTS 
ENABLE MISCELLANEOUS ERROR LOG MESSAGES 
ENABLE OTHER HOSTS ERROR LOG MESSAGES 
ENABLE THIS HOSTS ERROR LOG MESSAGES 



(WRITE PROTECT (HARDWARE) 
, VARIABLE SPEED UNIT 

SOFTWARE WRITE PROTECT 

REMOVABLE MEDIA 

VARIABLE SPEED MODE SUPPRESSION 
COMPARE WRITES 
COMPARE READS 



GENERIC END MESSAGE OFFSETS 



0 
4 

10 
11 
12 
14 



COMMAND REFERENCE NUMBER 
UNIT NUMBER 
ENDCODE 

END MESSAGE FLAGS 
(STATUS 
(BYTE COUNT 



ACCESS. COMPARE HOST DAT A. RE AD. REPOSITION. WRITE. - 

AND WRITE TAPE MAR" END MESSAGE OFFSETS 

34 sPOSITION (OBJECT COUNT) 

40 (TAPE RECORD BYTE COUNT 

GET COMMAND STATUS END PACKET OFFSETS 

14 (OUTSTANDING COMMAND REFERENCE NUMBER 

20 (COMMAND STATUS 

GET UNIT STATUS END MESSAGE OFFSETS 



■ ■ 

M m 



14 
16 
24 
34 
40 
42 
44 
50 
51 
52 
53 



(MULTI-UNIT CODE 
UNIT FLAGS 
UNIT IDENTIFIER 
MEDIA IDENTIFIER 
TAPE FORMAT 
SPEED 

(FORMAT MENU 

CONTROLLER SOFTWARE VERSION 
CONTROLLER HARDWARE VERSION 
UNIT SOFTWARE VERSION 
UNIT HARDWARE VERSION 



OP.ONL. OP.AVL AND OP.SUC MESSAGE OFFSETS 

44 (MAXIMUM WRITE RECORD SIZE 

50 (NOISE RECORD 



GLOBAL AREAS MACRO YDS. 02 
GLOBAL EQUATES SECTION 



1559 
1540 
1541 
1542 
1545 
1544 
1545 
1546 
1547 
1546 



000014 
000020 



000014 
000016 
000020 
000024 
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i 3.9 REPOSITION MESSAGE OFFSETS 

P.RCSK 14 ; RECORDS SKIPPED 

P.TMSK " 20 ;TAPE MARKS SKIPPED 

; 5.10 SET CONTROLLER CHARACTERISTICS MESSAGE OFFSETS 

P.VRSN 14 jMSCP VERSION 

P.CNTF 16 I CONTROLLER FLAGS 

P.HTMO «- 20 {HOST TIMEOUT 

P. TIME " 24 tOUAD-UORD TIME AND DATE 



SEQ 35 



GLOBAL AREAS KAC^O YOS.O^ 
GLOBAL EQUATES SECTION 



1550 
1551 
1552 
1555 
1554 
1555 
1556 
1557 

i5sa 

1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1566 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
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./•\/*\/«\/*\/*\/*\/*\/»\/»\/*\/»\/«\/«\/»\/*\/»\/«\/»\/*\/»\/«\/«\/«\/»\ 
. 4.0 ERROR LOG LITERALS 

,/»\/«\/«\/«\/»\/»\/«\/*\/»\/«\/«\/«\/«\/*\/*\/«\/*\/«\/*\/*\/*\/*\/*\/*\ 



SEQ 36 





: 4.1 


ERROR 


LOG MESSAGE 


FORMAT 


CODES 


000000 


FM.CNT 


■ ■ 


000000 


> 


CONTROLLER ERRORS 


000001 


FM.BAD 


■ ■ 


000001 


iHOST MEMORY ACCESS ERRORS WITH BUS 


000005 


FM.TPE 




000005 


i 


TAPE TRANSFER ERRORS 




s 4.2 


ERROR 


LOG MESSAGE 


FLAGS 




000200 


LF.SUC 


■ m 


000200 


: OPERATION SUCCESSFUL 


000100 


LF.CON 


u m 


000100 


1 


OPERATION CONTINUING 


000001 


LF.SNR 


m m 


000001 


1 


SEQUENCE NUMBER REQUEST 




( 4.3 


TAPE FORMAT FLAG 


VALUES 




000001 


TF.800 


■ ■ 


000001 


tNRZI 800 BPI 


000002 


TF.PE 


■ ■ 


000002 




PHASE ENCODED 1600 BPI 


000004 


TF.GCR 


■ m 


000004 




GROUP CODED RECORDING 6250 BPI 


000010 


TF.BLK 


m m 


000010 




6667 BPI 




! 4.4 


ERROR 


LOG MESSAGE 


OFFSETS 


000000 


L.CRF 




0 




COMMAND REFERENCE NUMBER 


000004 


L.UNIT 




4 




UNIT NUMBER 


000006 


L.SEQN 




6 




SEQUENCE NUMBER 


000010 


L.FMT 




10 




FORMAT 


000011 


L.FLGS 




11 




ERROR LOG MESSAGE FLAGS 


000012 


L.EVNT 




12 




EVENT COOES 


000C14 


L.CNTl 




14 




CONTROLLER ID 


000024 


L.CSVR 




24 




CONTROLLER SOFTWARE VERSION 


000025 


L . CHVR 




25 




CONTROLLER HARDWARE VERSION 


000026 


L.MLUN 




26 




MULTI UNIT CODE 


000030 


L.UNTI 




30 


tUNIT ID 


000030 


L.BAOR 




30 




BUS ADDRESS 


000040 


L.USVR 




40 




UNIT SOFTWARE VERSION 


000041 


L.UHVR 




41 




UNIT HARDWARE VERSION 


000042 


L.LVL 




42 




RETRY LEVEL 


000042 


L.FMTO 




42 


: FORMAT DEPENDENT 


000043 


L.RTRY 




43 




RETRY COUNT FOR THE CURRFNT LEVEL 


000044 


L.GPCT 




44 


:GAP COUNT 


000044 


L.VSER 




44 




1 VOLUME SERIAL NUMBER 


000044 


L . PSTN 




44 


iTAPE OBJECT COUNT 


000050 


L.STI 




50 


iSTI INFORMATION 


000050 


L.FHVR 




50 




;FORMATTER HARDWARE VERSION 


000051 


L.FSVR 




51 


; FORMATTER SOFTWARE VERSION 


000052 


L.STS 




52 


; CONTROLLER INTERNAL STATUS 


000053 


L.ORVC 




53 




DRIVE ERROR CODE 


000054 


L.OFLG 




54 




DRIVE STATE FLAGS 


000055 


L.TRK 




55 




.LOGICAL TRACK NUMBER 


000056 


L.PBLK 




56 




■PHYSICAL BLOCK NUMBER 


000060 


L.LBLK 




60 




LOGICAL BLOCK NUMBER 


000061 


L.CNTO 




61 




TAPE COUNT 0 


000062 


l.cnt: 




62 




[TAPE COUNT 1 


000063 


L.CNT2 




63 




[TAPE COUNT 2 


000064 


L.ORVS 




64 




DRIVE STATE 


000066 


L.RUST 




66 




REAO/URITE STATE 


000070 


L.OPFL 




70 




.OPERATION FLAGS 
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GLOBAL EQUATES SECTION 



1607 




t 4.5 


STATUS AND EVENT 


1608 


000037 


ST.nSK 


37 


1609 


000040 


ST. SUB 


40 


1610 


000000 


ST. sue 


0 


1611 


000001 


ST.CMO 


1 


1612 


000002 


ST. ABO 


2 


1615 


000003 


ST.OFL 


3 


1614 


000004 


ST.AVL 


4 


161S 


000005 


ST.MFE 


5 


1616 


000006 


ST.UPR 


6 


1617 


000007 


ST. CMP 


7 


1616 


000010 


ST. OAT 


10 


1619 


000011 


ST.HST 


11 


1620 


000012 


ST . CNT 


12 


1621 


000013 


ST. DRV 


13 


1622 


000014 


ST.FNT 


14 


1623 


000015 


ST.BOT 


15 


1624 


000016 


ST.TH 


16 


162S 


000020 


ST. ROT 


20 


1626 


C00021 


ST. POL 


21 


1627 


000022 


ST. SEX 


22 


1626 


000023 


ST. LED 


23 


1629 


000037 


ST.OIA 


37 


1630 


000400 


ST.ONL 


400 


1631 




EV.LGP 




1632 


000010 


10 


1633 


000050 


EV.OST 


50 


1634 


000052 


EV.CTO 


52 


1635 


000053 


EV.SRT 


53 


1636 


000113 


EV.SRI 


113 


1637 


000150 


EV.COR 


150 


1638 


000152 


EV.IOS 


152 


1639 


000153 


EV.SER 


153 


1640 


000213 


EV.MER 


213 


1641 


000350 


EV.URE 


350 



; STATUS/EVENT CODE MASK 
i SUB-CODE MULTIPLIER 
(SUCCESS 

{INVALID COMMAND 
i COMMAND ABORTED 
; UNIT -OFFLINE 
jUNIT-AVAILABLE 
(MEDIA FORMAT ERROR 
sURITE PROTECTED 
{COMPARE ERROR 
:DATA ERROR 

iHOST BUFFER ACCESS ERROR 
: CONTROLLER ERROR 
sOk'^IVE ERROR 
(FORMATTER ERROR 
(BOT ENCOUNTERED 
(TAPE MARK ENCOUNTERED 
(RECORD DATA TRUNCATED 
(POSITION LOST 
(SERIOUS EXCEPTION 
(LEOT DETECTED 

(INTERNAL DIAGNOSTIC MESSAGE 
(UNIT ALREADY ONLINE 

(LONG GAP ENCOUNTERED 
(DATA SYNC TIMEOUT 
(COMM CHANNEL TIMEOUT 
(DRIVE COMMAND TIMEOUT 

(CONTROLLER DECTECTED TRANSMISION ERROR 

(CORRECTABLE ERROR 

(INTERNAL INCONSISTENCY ERROR 

(SOFT ERROR 

(HARD ERROR 

(UNRECORVERABLE DATA ERROR 



CLOSAt. AACAS nACRO r05.02 
CCOtAL EQUATES SECTION 

1643 
1644 
X645 
1646 
1647 

1646 100000 

1649 004000 

1690 000001 
1651 111400 
16S2 

16SS 

1694 000001 
1699 000002 

1696 000004 

1697 000010 
1696 000020 
1699 

1660 

1661 000000 

1662 100000 
1669 040000 
1664 020000 
1669 000001 

1666 000002 
16«7 OOOOOS 
16«t 000004 

1669 OOOOOS 

1670 000006 

1671 000007 
1672 

U7S 

1674 000001 

1679 000002 

1676 000004 
1677 
1676 

1679 100000 

1660 040000 

1691 000200 

ulS 

1664 177946 

1665 0012SS 
1696 007622 

1667 000000 
166« 000000 
1669 000000 
1690 020000 
16«1 oooa?4 

1692 000000 

1695 003720 
1694 000144 
1699 OOOOOl 

1696 000002 

1697 OOOOOS 
1696 000004 
1699 OOOOOS 
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I 5.0 raOGMH OEFIMED LIT0MI.S 

i/«\/»\/*\/*\/«\/*\/*\/*\/*\/«\/*\/*\/*\/*\/»\/*\/«\/»\/»\/»\/*\/*\/»V/«N 



SEQ se 



J 5.1 
ERP 
SI 
CO 

TKINZT 

» 5.2 

AVB 

NROY 

EOT 

t»» 

FAIL 

I 5.5 

XONORtI 

NURESP 

ERftLOG 

lOICRO 

CHOLST 

lOHUNG 

lOPOWE 

lOTIfC 

mssEo 

INTERf) 
ILLCnO 

I 5.4 
SUCCES 
'•CREXC 
ABC^T 

, 5.5 

OUN 

FLAG 

tm 

I 5.6 

KUCSR 

RSI 

R52 

ftS3 

MULPAT 

RNOerT 

nAXBUF 

NINBUF 

RNOITR 

tIAXITR 

niNITR 

PATl 

RAT2 

PATS 

PAT4 

PATS 



TKSA BIT DEFINITIONS 
100000 
004000 
OOOOOl 
111400 



(ERROR 
iSTCP 1 
iGO 

iTUSl STEP 



1 RESPONSE 



DRIVE IN USE TABLE BIT DEFDUTIONS 



OOOOOl 
000002 
000004 
000010 
000020 

I/O STATUS MESSAGES 

0 

BIT15 
BIT14 
8IT13 
1. 
2. 
3. 
4. 
5. 
6. 
7. 

RESPONSE CONDITION COOES 
OOOOOl 
000002 
000004 

U/Q PORT LITERALS 
8IT15 
BIT 14 
eiT07 



I DRIVE AVAILABLE 
J DRIVE NOT READY 
t DRIVE AT EOT 
(DRIVE DROPPED 
sCPIVE FAILED 



; SUCCESSFUL COmANO TRANSMISSION 
:NEU RESPONSE RECEIVED 
(ERROR LOG PACKET RECEIVED 
s INSUFFICIENT CREDIT TO POST COHHAND 
iGCS RESPONSE NEVER CAHE BACK 
> CONTROLLER HUNG 
(PORT DETECTED ERROR 
(CONTROLLER TIME OUT 
: COMMAND RETURNED IN WRONG SEQUENCF. 
s ERROR DURING INITIALIZATION 
I ILLEGAL COMMAND 



{RESPONSE HANDLED SUCCESSFULLY 
: SERIOUS EXCEPTION CONDITION 
i SYSTEM FATAL ERROR ABORT PROGRAM 



(DESCRIPTOR OWNERSHIP BIT 
{DESCRIPTOR INTERUPT FLAG BIT 
(IMMEDIATE COMMAND FLAG 



PROGRAM 



LITERALS 

177546 

1235 

7622 

0 

0 

0 

8192. 

20. 

0 

2000. 

100. 

1 

2 

3 

4 

5 



LINE CLOCK REGISTER ADDRESS 
RANDOM GENERATOR SEED 
RANDOM GENERATOR SEED 
RANDOM GENERATOR SEED 
NO DATA PATTERN NEEDED 
RANDOM BYTE COUNT 
MAXIMUM BUFFER SIZE 
MINIMUM BUFFER SIZE 
RANDOM ITERATION COUNT 
MAXIMUM ITERATION SET 
MINIMUM ITERATION SET 
ALL I'S DATA PATTERN 
ALt O'S DATA PATTERN 
MWS^ CASE MFM DATA PATTERN 
ALTERNATING I'S AND 0'. 
RANDOM DATA PATTERN 



1700 
1701 
1'02 
1705 
1^04 
1703 
170* 
1707 
170« 
170* 
1710 
1711 

nii 

UlJ 
1714 
1715 
1716 
I7lt 
1718 
i71» 
1720 



1724 

17i« 
IW 
17|f 

VA\ 
1?U 

\m 

175(1 
17S» 
1740 
J741 
1742 
1745 
1744 
1745 
17«« 
1747 
174« 



AREAS 

EaUATES 



MACRO ft/i 
SECTION 

00000« 
000007 
000010 
000200 
000002 
000000 
000000 
177776 
177777 
004716 
000004 
000001 



OOOOOl 
000002 
000004 
000010 
000020 
C00040 
000100 



000000 
OOOOOl 
000002 

ooooos 

000004 



OOOOOl 
000002 
000004 
000010 
000020 
000040 
000100 
000200 



OOOOOl 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
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SCO 59 



FAT6 
PAT7 
GNDPAT 

•U.PAT 
UNIS'P 
MSTinO 
nscnn 

L08TTC 
K18TTC 

''Stem 

H 

ONE 

♦ 5.7 

Lcoe 

DOTS 
SEX8 



6 

7 

e. 

200 

2 

0 

o 

-2 
-1 

2510. 

4 

1 

EiMtOR riASKINC LITERALS 
OOOOOl 
000002 



AVLB 
ONLB 

I 5.8 

STSTAT 

OeVfAT 

HARD 

SOFT 

STATUS 



000010 
000020 
000040 
000100 

ERROR TYPE LITERALS 
0 
I 
2 
5 

" 4 



S.9 BIT VALUES FOR LUN 
OOOOOl 
000002 
000004 
000010 
000020 
000040 
000100 



1 5.» e 

XNTDON 
SEREXC 
NOTM.Y 
COTPR 
OOOFLG 
riTBLOV 
ECCFLC 



FLAG 



RETFLG 



000200 



:1110 REPEATDC PATTERN 

I COMBINATION PATTERN 5 AND 5 

iRftNOOK PATTERN VALUE 

J CYCLE THROUGH ALL PATTERNS 

J STEP THROUGH UNITS 

iHOST TIMEOUT VALUE 

iNSCP VERSION NUMBER 

>LOU BYTE OFFSET FOR COMPARE DATA 

(HIGH BYTE OFFSET FOR COMPARE DATA 

iRECORDS TO FILL 2 TRACKS 

I VALUE USED IN SUBITR 

.BYTE OfTSET 



{DETECT LOGICAL END OF TAPE 
tRECORO DATA TRUNCATED 
tSCRIOUS EXCEPTION 
{ENCOUNTERED TAPE tMRK 
(DRIVE URITE PROTECTED 
I UNIT AVAILABLE 
I UNIT ONLINE 



(SYSTEM FATAL ERROR 
(DEVICE FATAL ERROR 
(HARD DEVICE ERROR 
(SOFT DEVICE ERROR 
(STATUS MESSAGE 



(INITIALIZATION HAS BEEN DONE ON THIS UNIT 
(A SERIOUS EXCEPTION CONDITION EXITS 
(DON'T 1ALLY BYTES FOR THIS COMMAND 
(EOT PRINTED FOR THIS UNIT 
I ODD BYTE COUNT FLAG 
(MEDIA STATS OVERFLOU FLAG 
(DON'T DECREMENT ECC COUNT FLAG 
(RETRY FLAG 



(PROGRAM CONTROL FLAG BIT VALUES 
T7BRFL " OOOOOl 



NCLKFL 
TCNTFL 
ORCRFL 
GCSCFL 
6CSRFL 
CMOONE 
OROPIT 
TPASSl 



000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 



(BRANCH FLAG FOR TEST 7 

(NO CLOCK PRESENT FLAG 

(COUNT RECORDS AND fAPE MARKS FLAG 

(DRIVE ERROR FLAG 

(GET COMMAND STATUS COMMAND FLAG 

(GET COmANO STATUS RESPONSE FLAG 

(ALL COMMANDS ISSUED FLAG 

(DRIVE BEING DROPPED 

(FIRST PASS THROUGH TEST 



GLOe/>L AREAS HACRO Y0S.03 
GLOeAL EQUATES SECTION 

1750 
1751 
1752 
1753 
1754 

1755 000000 

1756 000001 

1757 000002 

1758 000004 

1759 000006 
1760 

1761 

1762 000000 

1765 000002 

1764 000004 

1765 000006 

1766 000010 

1767 000012 

1768 000014 

1769 C00044 
1770 

1771 

1772 000002 

1773 177777 

1774 177776 

1775 177774 

1776 000104 

1777 000050 

1778 000170 

1779 000004 
1780 

1781 
1782 

1783 00'-026 

1784 000030 

1785 000036 
1786 
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J 6,0 PROGRAM OFFSETS 

;/*\/«\/»\/»\/»\/*\/*\/*\/*\/*\/*\/»\/*\/*\/«\/»\/*\/*\/«\/»\/»\/»\/»\/*\ 



SEQ 40 



J 6.1 
CMO 

OATPAT 
ITMCNT 
ITRCNT 
TSTSTP 

: 6.2 

CMO 

ITMOFF 

OBOFFL 

OBOFFH 

XFERST 

BUFOFF 

PC8STP 

PCB3SP 

; 6.3 
HIADOR 
CONID 
CRD 

MSGLEN 
DRBSTP 
OCBSTP 
DCB3SP 
OSPSTP 



ECCDC 
ECCTC 
ECCBC 



TEST TABLE OFFSETS 
0. 
1. 
2. 
4. 
6. 



COMMAND PRIMITIVE OFFSET 

DATA PATTERN 

ITEM (BYTE) COUNT OFFSET 
i ITERATION COUNT OFFSET 
.•USED TO STEP THROUGH TEST TABLES 



PROGRAM COMMAND BUFFER OFFSETS 

0 .COMMAND PRIMITIVE OFFSET 



2. 

4. 

6. 

8. 

10. 

12. 

36. 



ITEM CBYTE) COUNT OFFSET 
LOU ORDER OBJECT COUNT 
HIGH ORDER OBJECT COUNT 
TRANSFER STATUS 
COMMAND BUFFER ADDRESS 
STEP TO NEXT SLOT 
3 STEPS 



TMSCP DRIVER BUFFER OFFSETS 



2. 

1. 
-2. 
-4. 
68. 
40. 
120. 
4. 



: DESCRIPTOR ADDRESS OFFSET 
: COMMAND/RESPONSE CONNECTION TYPE I.U. 
I COMMAND/RESPONSE CREDIT LIMIT OFFSET 
COMMAND/RESPONSE MESSAGE LENGTH 
RESPONSE PACKET SIZE (WORDS) 
COMMAND PACKET SIZE (WORDS) 
3 COMMAND PACKET SIZt 
PORT DESCRIPTOR SIZE 



6.4 DRIVE STATUS CODES 



26 iECC CORRECTION ON DATA BLOCK 

30 iECC CORRECTION ON A TAPE MARK 

36 ;CRC CRROR ON ECC BLOCK 



GLOBAL *REAS MACRO Y05.02 
GLOeAI. EQUATES SECTION 
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1788 








1780 




: 6.5 


LUN TABLE Of 


1790 


000000 


TKIP 


0 


1791 


000002 


t:<sa 


2 


1792 


000004 


TKUNIT 


4 


l"93 








1794 


000006 


CHOSEQ 


6 


1795 


000010 


SLTUSE 


10 


1796 


000012 


CMOSSV 


12 


1797 


000014 


CNUSAV 


14 


1798 


000016 


COLSAV 


16 


1799 


000020 


RNUSAV 


20 


1800 


000022 


ROLSAV 


22 


1801 








1802 


000024 


PATSAV 


24 


1803 


000026 


LUNFLC 


26 


1804 


000030 


LEOTFL 


30 


1805 


000032 


UNOROP 


32 


1806 


000034 


OBJFOL 


34 


1807 


C00036 


OBJFOH 


36 


1808 








1809 


000040 


GSTEUR 


40 


1810 


000042 


GSTERO 


42 


1811 


000044 


GSTEUA 


44 


1 • 1 9 

lolc 






mm AH 


1813 


000050 


GSFTRO 


50 


1814 


000052 


GHROUR 


52 


1815 


000054 


GHRORD 


54 


1816 


000056 


GHROOA 


56 


1817 


000060 


GMEOER 


60 


1818 


000062 


GOCERR 


62 


1819 


000064 


GCTHUR 


64 


1820 


000066 


GOTHRO 


66 


1821 


000070 


GOTHUA 


70 


1822 


000072 


GCRORP 


72 


1823 


000074 


GNOERR 


74 


1824 
1825 


000076 


PSTEUR 


76 


1826 


000100 


PSTERO 


100 


1827 


000102 


P3TEUA 


102 


1828 


000104 


PSFTUR 


104 


1829 


000106 


PSFTRO 


106 


1830 


000110 


PHROUR 


110 


1831 


000112 


PHRDRO 


112 


1832 


000114 


PHRDUA 


114 


1833 


000116 


PMEOER 


»« 116 


1834 


000120 


POCERR 


120 


1835 


000122 


POTHWR 


122 


1836 


000124 


POTHRO 


124 


1837 


000126 


POTHUA 


126 


1838 


000130 


PEDRP 


130 


1839 


000132 


PNOERR 


132 


1840 








1841 


000134 


GURBYl 


134 


1842 


000136 


GURBY2 


136 


1843 


000140 


GURBY3 


140 


1844 


000142 


GUR6Y4 


142 



IP REGISTER ADDRESS 
SA REGISTER ADDRESS 
TMSCP DEVICE UNIT NUMBER 

COMMAND REFERENCE NUMBER 
BIT MAP OF RESPONSES RECEIVED 
COMMAND DESCRIPTOR 
NEW COMMAND BUFFER POINTER 
OLD COMMAND BUFFER POINTER 
(NEW RESPONSE BUFFER POINTER 
tOLO RESPONSE BUFFER POINTER 

DATA PATTERN 

INITIALIZATION FLAG 

UNIT LOGICAL END OF TAPE FLAG 

UNIT DROP COUNT 

OBJECT COUNT LOU ORDER 

OBJECT COUNT HIGH ORDER 

WRITE STATUS ERROR IN GCR 

READ STATUS ERROR IN GCR 

UNIT ACCESS STATUS ERROR IN GCR 

(SOFT URITE ERROR IN GCR 

:SOFT READ ERROR IN GCR 

:HARO URITE ERROR IN GCR 
HARD READ ERROR IN GCR 
HARD UNIT ACCESS IN GCR 
URITE MEDIA ERROR IN GCR 
DATA COMPARE ERROR IN GCR 
OTHER URJTE ERRORS IN GCR 
OTHER READ ERRORS IN SCR 
OTHER UNIT ACCESS ERRORS IN GCR 
TIMES UNIT UAS DROPPED IN GCR 
NO ERROR 

URITE STATUS ERROR IN PE 
READ STATUS ERROR IN PE 
UNIT ACCESS STATUS ERROR IN PE 
SOFT URITE ERROR IN PE 
SOFT READ ERROR IN PE 
HARD URITE ERROR IN PE 
HARD READ ERROR IN PE 
HARD UNIT ACCESS IN PE 
URITE MEDIA ERROR IN PE 
DATA COMPARE ERROR IN PE 
OTHER URITE ERRORS IN PE 
OTHER READ ERRORS IN PE 
OTHER UNIT ACCESS ERRORS IN PE 
TIMES UNIT UAS DROPPED IN PE 
:N0 ERROR 

s HUNDREDS BYTES WRITTEN IN GCR 
; THOUSANDS BYTES WRITTEN IN GCR 
iMILLIONS BYTES WRITTEN IN GCR 
sBlLLIONS BYTES WRITTEN IN GCR 
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GLOBAL EQUATES SECTION 



1845 


000144 


GROBYl 


144 


1846 


000146 


GR0BY2 


146 


1847 


000150 


GR0BY3 •« 


150 


1848 


000152 


GR0BY4 ■- 


152 


1849 








1850 


000154 


PURSY 1 »• 


154 


1851 


000156 


PURBY2 


i56 


1852 


000160 


PURBY3 «- 


160 


1853 


000162 


PURBY4 >- 


162 


1854 


000164 


PROBYl 


164 


1855 


000166 


PR0BY2 


166 


1856 


000170 


PR0BY3 


170 


1857 


000172 


PR0BY4 


172 


1858 








1859 


000174 


SEOl 


174 


1860 


000176 


SE02 


176 


1861 


000200 


SE03 


200 


1862 


000202 


SEEOl »■ 


202 


1863 


000204 


SEe02 


204 


1864 


C00206 


SEEDS 


206 


1865 








1866 


000210 


URSPBF 


210 


1667 


000212 


URBEND 


212 


1666 


000214 


URDSRG 


214 


1669 


000216 


UROEND 


216 


1870 


000220 


UCDSRG " 


220 


1871 


000222 


UCOENO 


222 


1672 








1673 


000224 


LUNSTP " 


224 



SEQ 42 



i HUNDREDS BYTES READ IN GCR 
J THOUSANDS BYTES REAP IN GCR 
; MILLIONS BYTES READ IN GCR 
jBILLlONS BYTES READ IN GCR 

: HUNDREDS BYTES WRITTEN IN PE 
: THOUSANDS BYTES WRITTEN IN PE 
: MILLIONS BYTES WRITTEN IN PE 
i BILLIONS BYTES WRITTEN IN PE 
i HUNDREDS BYTES READ IN PE 
s THOUSANDS BYTES READ IN PE 
{MILLIONS BYTES READ IN PE 
.BILLIONS BYTES READ IN PE 

: PRIME RANDOM GENERATOR SEED 
; PRIME RANDOM GENERATOR SEED 
i PRIME RANDOM GENERATOR SEED 
: RANDOM GENERATOR SEED 
: RANDOM GENERATOR SEED 
{RANDOM GENERATOR SEED 

(START OF THIS UNITS RESPONSE BUFFER 

iEND OF THIS UNITS RESPONSE BUFFER 

{START OF THIS UNI1S RESPONSE DESCRIPTOR RING 

{END OF THIS UNITS RESPONSE DESCRIPTOR RING 

{START OF THIS UNITS COMMAND DESCRIPTOR RING 

{END OF THIS UNITS COMMAND DESCRIPTOR RING 

{OFFSET TO NEXT LUN BLOCK 



4 



GLOBAL AREAS MACRO YDS. 02 
GLOBAL EQUATES SECTION 



1875 






1876 




: 7.0 
s/»\/» 


1877 




1878 






1879 




» 7.1 


1880 


000000 


NUL 


1881 


000010 


RD 


1882 


000011 


RDR 


1883 


000020 


UR 


1884 


000030 


CMP 


1885 


000031 


CfIR 


1886 


000040 


ACC 


1887 


000041 


ACR 


1880 


000050 


SPC 


1889 


000051 


SCR 


1890 


000052 


SCO 


1091 


000060 


SKP 


1892 


000061 


SKR 


1093 


000062 


SKO 


1894 


C00070 


SPG 


1895 


000071 


SPR 


1096 


000100 


WTM 


1897 


000110 


ERS 


1890 


0001 '3 


ERX 


1099 


000120 


ERG 


1900 


000130 


AVL 


1901 


000134 


AVU 


1902 


000140 


ONL 


1903 


000150 


sue 


1904 


000155 


SUU 


1905 


000160 


REU 


1906 


000163 


RUI 


1907 


000170 


INT 


1900 


000200 


nan 
ABO 


1909 


000210 


GCS 


1910 


000220 


GUS 


1911 


000230 


sec 


1912 






1913 




J 7.2 
REVBIT 


1914 


000001 


1915 


000002 


EOTBIT 


1916 


000003 


IMM8IT 


1917 


000004 


UNLBIT 


1910 


000005 


UPRBIT 


1919 
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PROGRAM PRIMITIVES 



SEO 43 



COMMAND PRIMITIVE LITERALS 



000 i 


NULL 


010 


READ 


oil i 


READ REVERSE 


020 i 


URITE 


030 


COMPARE HOST DATA 


031 


COMPARE HOST DATA REVERSE 


040 1 


ACCESS 


041 : ACCESS REVERSE 


050 : SPACE RECORDS 


051 


SPACE RECORDS REVERSE 


052 


SPACE TO LEOT 


060 


SKIP TAPE MARKS 


061 


SKIP TAPE MARKS REVERSE 


062 


SKIP TO LEOT 


070 J SPACE OBJECTS 


071 


SPACE OBJECTS REVERSE 


100 


URITE TAPE MARKS 


110 


ERASE 


113 1 ERASE IMMEDIATE 


120 


ERASE GAPS 


130 


.AVAILABLE 


134 


; AVAILABLE UNLOAD 


140 


i ONLINE 


150 


'SET UNIT CHARACTERISTICS 


155 


.SET UNIT CHARA. U/WRITE PROTECT 


160 


.REWIND 


163 


i REWIND IMMEDIATE 


170 


INITIALIZATION 


200 


, ABORT 


210 


!gET COWIAND STATUS 


220 


[GET UNIT STATUS 


230 


iSET CONTROLLER CHARACTERISTICS 



COMMAND PRIMITIVE MODIFIER LITERALS 



1 
2 
3 
4 

5 



REVERSE MODIFIER 
DETECT LEOT MODIFIER 
IMMEDIATE MODIFIER 
UNLOAD MOIFIER 
WRITE PROTECT MODIFIER 
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.SeTTL GLOBAL DATA SECTION 



SEQ 4A 



1921 








1922 








1923 








1924 








1925 








1926 








1927 








1928 


002322 


000000 


000000 


1929 


002400 


000000 


000000 


1930 


002456 


000000 


000000 


1931 


002532 


004216 




1932 


002554 


005256 




193S 


002536 


010*16 




19S4 


002540 


010456 




1935 


002542 


010456 




1936 


002544 


010476 




1937 








1936 


002546 


000000 


000000 


1939 


002624 


000000 


000000 


1040 


002702 


COOOOO 


000000 


1941 


002756 


005256 




1942 


002760 


006516 




1943 


002762 


010502 




1944 


002764 


010542 




1945 


002766 


010542 




1946 


002770 


010562 




1947 








1948 


002772 


000000 


000000 


1949 


003050 


000000 


000000 


1950 


003126 


000000 


000000 


1951 


003202 


006516 




1952 


003204 


007556 




1953 


003206 


010566 




1954 


003210 


010626 




1955 


003212 


010626 




1956 


003214 


010646 




1957 








1958 


003216 


000000 


000000 


1959 


003274 


000000 


000000 


1960 


003352 


000000 


000000 


1961 


003426 


007556 




1962 


003430 


010416 




1963 


003432 


010652 




1964 


003434 


010712 




1965 


0034S6 


010712 




1966 


003440 


010732 




1967 








1968 








1969 








1970 


003442 






1971 




003522 




1972 


003522 






1973 


003526 






1974 








1975 








1976 


003556 


000000 




1977 


003540 


000000 





J/«\/»\/«\/«\/«\/*\/*\/«\/*\/»\/*\/»\/*\/»\/«\/«\/»\/*\/«\/*\/»\/»\/»\/»\ 
i 8.0 PROGRAM AND DRIVER DATA STRUCTURES 

./•\/«\/»\/«\/«\/«\/«\/»\/*\/«\/«\/«\/«\/*\/*\/»\/«\/«\/*\/«\/«\/»\/«\/»\ 



000000 
000000 
000000 



: 8.1 UNIT LUN BLOCKS 
Ll^:: .UORD 



000000 
000000 
000000 



LUNl: 



.UORD 



000000 
000000 
000000 



LUN2: 



.WORD 



000000 
000000 
000000 



LUN3: 



.WORD 



0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 

0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0,0.0.0.0 

0.0.0.0.0,0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 

ORSPBO 

0R8EN0 

RDSRGO 

RORENO 

CDSRGO 

CORENO 

0.0.0.0.0.0,0,0,0.0.0,0.0.0.0.0.0.0.0.0,0.0.0 
0.0.0.0.0.0.0.0.0.0.0.0.0.0.0,0,0.0.0,0,0,0,0 
0.0.0.0.0.0,0.0.0,0.0.0.0,0,0.0,0.0,0,0,0,0 

ORSPBl 
DRBENl 
RDSRGl 
RORENl 
CDSRGl 
CORENl 

0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 

0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 

0.0.0.0.0.0.0.0,0,0.0.0.0.0.0.0.0.0.0.0.0.0 

DRSPB2 

DR8EN2 

R0SRG2 

RDREN2 

CDSRG2 

CDREN2 

0.0.0.0.0.0,0.0.0,0,0.0.0.0.0.0.0.0.0.0.0.0.0 
0.0.0.0.0.0,0.0.0.0.0.0.0.0.0.0,0,0,0,0.0.0.0 
0.0. 0.0. 0.0. 0.0. 0.0. CO, 0.0. 0.0. 0.0. 0.0. 0.0 

0RSPB5 
DRBEN5 
RDSR63 
RDREN3 
C0SRG5 
CDREN5 



8.2 PROGRAM COMMAND BUFFERS 



PCM08F J 
PCBENO- 
DUMPKT: 
ORINUS : 



.BLKU 24. 



.BLKU 
.BLKU 



2. 
4. 



: 8.3 PROGRAM VARIABLES 
CMOCNT:: .UORD 0 

RSPCNT:: .UORD 0 



PROGRAM COMMAND RING 
PROGRAM COMMAND RING END 
PROGRAM DUMMY COMMAND PACKET 
DRIVE IN USE TABLE 



; COMMAND COUNT 
: RESPONSE COUNT 
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GLOBA^ DATA SECTION 



1978 


003542 


000000 


CCTSAV 


.UORD 


0 


1979 


003544 


000000 


SEXCNT 


.UORO 


0 


1980 


003546 


000000 


COUNT: 


.UORD 


0 


1981 


0O3S50 


000000 


TEMP: 




.WORD 


0 


1982 


003552 


000000 


RESPON 


.UORD 


0 


1983 


003554 


000000 


BRCNT : 


.WORD 


0 


1984 


003556 


000000 


HNOLRP 


.WORD 


0 


1985 


003560 


000000 


MRETRY 


.UORO 


0 


1986 


003562 


000000 


MAKCNT 


.UORD 


0 


1937 


003564 


000000 


ARETRY 


.UORD 


0 


1988 


003566 


000000 


AUTCNT 


.UORD 


0 


1989 


003570 


000000 


SOFTER 


.UORD 


0 


1990 














1991 


003572 


000000 


RESP 




.UORD 


0 


1992 


003574 


000000 


BYTES: 


.UORD 


0 


1993 


003576 


000000 


ITERS: 


.UORO 


0 


1994 


003600 


000000 


BUFAOR 


.UORO 


0 


1995 


003602 


000000 


SUBCNT 


.UORD 


0 


1996 














1997 


003604 


cooooo 


RANURO 


.UORD 


0 


1998 


003606 


000000 


RANI 




.UORD 


0 








RAN2 




.UORD 


u 


2000 


003612 


000000 


RAN3 




.UORD 


0 


2001 














2002 


003614 


000000 


SAVOIF 


:: .UCRD 


0 


2003 


005616 


000000 


TSTMSK 


.UORD 


0 


2004 


003620 


000000 


URKMSK 


.UORD 


0 
















2006 


003622 


000000 


CMPERR 


. UORD 


0 


2007 


003624 




BYTAOO 


.BLKU 


10 


2008 




005650 


TBLENO 


mm 




2009 


003650 




OATBL: 


.BLKU 


10 


2010 


003674 


000000 


PCFLAG:: .WORD 


0 


2011 
2012 


003676 


000000 


OBJECT 


.UORO 


0 


2013 


003700 


000000 


PASCNT 


.UORD 


0 


2014 


003702 


000000 


PASSl: 


.UORD 


0 


2015 


003704 


000000 


UDROP: 


.UORD 


0 


2016 


003706 


000000 


UEOT 




.UORD 


0 


2017 
20ia 


005710 


000000 


R8: : 




.UORD 


0 


2019 


005712 


000000 


R9: : 




.UORO 


0 


2020 


003714 


000000 


RIO: 




.UORD 


0 


2021 


003716 


000000 


Rll: 




.UORD 


0 


2022 


005720 


000000 


R12: 




.UORD 


0 


2023 


005722 


000000 


R13: 




.UORD 


0 


2024 














2025 


003724 


000000 


SECRNS 


. UORO 


0 


2026 


003726 


000000 


RECCNT 


.UORD 


0 


2027 


005750 


000000 


TMCNT: 


.UORD 


0 


2028 














2029 


003732 


000004 


FORMAT 


.UORD 


4 


20^0 


003734 


000000 


INFORM 


.UORD 


0 


2031 


005756 


000000 


EVENT: 


.UORD 


0 


2032 


005740 


000000 


R5SAVE 


.UORD 


0 


2033 


005742 


000000 


R4SAVE 


.UORO 


0 


2034 


005744 


000000 


CMOSAV. 


.UORD 


0 



SEG 45 



sCOrtlAND COUNT SAVE 
: SERIOUS EXCEPTION COUNT 
iCOrtlAND LOOP COUNTER 
3 TEMPORARY STORE 
: RESPONSE STATUS 
: BRANCH COUKTER 
{NUMBER OF RESPONSES 
sMANUAL RETRY COUNTER 

i NUMBER OF ACTUAL URITE/READ MANUAL RETRIES 
sAUTO RETRY COUNTER 

:I«JMBER OF ACTUAL URITE/READ AUTO RETRIES 
tSOFT ERROR COUNT 

: DRIVER RESPONSE COUNT 

jBYTE COUNT 

(ITERATION COUNT 

{COMMAND BUFFER ADDRESS 

I SUB -ITERATION COUNT FOR DATA COMPARES 

:USEO BY RANGEN 
iSEEO UORK LOCATION 
:SEED UORK LOCATION 
:SEED UORK LOCATION 

{COMMAND AND RESPONSE COUNT DIFFERENCE 
:TEST LOAD UITH ACCEPTABLE ERROR CODES 
sUSEO BY ERROR DECODE 

{NUMBER OF BYTES IN ERROR 

:SAVE TABLE FOR BYTE IN ERROR ADDRESS 

sENO OF BYTE ADDRESS TABLE 

iSAVE TABLE FOR BYTE IN ERROR DATA 

{PROGRAM CONTROL FLAGS 

{OBJECT COUNTER FOR TEST 2 
{PASS COUNTER 
{"1ST PASS OF TEST" FLAG 
{NUMBER OF DROPPED UNITS 
{COUNT OF UNITS AT EOT 

{USED FOR TEMP STORAGE 
;USED FOR TEMP STORAGE 
{USED FOR TEMP STORAGE 
{USED FOR TEMP STORAGE 
{USED FOR TEMP STORAGE 
{USED FOR TEMP STORAGE 

{SERIOUS EXCEPTION CMD REF » 
{NUMBER OF RECORDS 
.NUMBER OF TAPE MARKS 

{DEFAULT TAPE FORMAT CODE (OCR) 

{INITIAL TEST FORMAT 

{EVENT CODE STORAGE 

{SAVE LOCATION FOR R3 

(SAVE LOCATION FOR R4 

{SAVE LOCATION FOR CURRENT COMMAND 
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GLOBAL DATA SECTION 

20S5 003746 000000 BYTSAV:: .UORO 0 sSAVE LOCATION FOR ORIGINAL BYTE COUNT 

2036 003750 000 DAYS:: .BYTE 0 :NUnBER OF DAYS IN RUN 

2037 .EVEN 



GLOBAL AREAS rtACRO Y05.02 
GLOBAL DATA SECTION 

2039 
2040 
2041 
2042 
2043 

2044 003 752 

2045 003756 

2046 004022 

2047 004072 
2040 004142 
2049 

2050 004212 

2051 004216 

2052 004216 
2053 

2054 005252 

2055 005256 

2056 005256 
2057 

2056 006312 

2059 006316 

2060 006316 
2061 

2062 007352 

2063 007356 

2064 007356 
2065 
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: 9.0 TnSCP CLASS AND PORT DRIVER DATA STRUCTURES 



SEQ 47 



: 9.1 CLASS 


DRIVER BUFFERS 










CMOBFl: : 


• D L— " " 


2 


t DRIVE COMMAND BUFFER 1 








DCMOBF : : 


.BLKU 


18. 


i DRIVER COMMAND BUFFER 








CM0BF2 : : 


.BLKU 


20. 


i DRIVE COMMAND BUFFER 2 








CM0BF3: : 


.BLKU 


20. 


: DRIVE COMMAND BUFFER 3 








CM0BF4 : : 


.BLKU 


20. 


; DRIVE COMMAND BUFFER 4 








RSPBFO: : 


.BLKU 


2. 


(TOP 4 LOCATIONS OF RESPONSE 


BUFFER 


UNIT 


0 


DCBENO:: 






;END OF COMMAND BUFFER 








DRSP80 : : 


.BLKU 


270. 


1 DRIVER RESPONSE BUFFER UNIT 


0 






RSPBFl: : 


.BLKU 


2. 


{TOP 4 LOCATIONS OF RESPONSE 


BUFFER 


UNIT 


1 


ORBENO: : 






(END OF RESPONSE BUFFER UNIT 


0 






DRSPBl : : 


.BLKU 


270. 


{DRIVER RESPONSE BUFFER UNIT 


1 






RSPBF2 : : 


.BLKU 


2. 


;TOP 4 LOCATIONS OF RESPONSE 


BUFFER 


UNIT 


2 


ORBENl: : 






sEND OF RESPONSE BUFFER UNIT 


1 






DRSP82: : 


.BLKU 


270. 


{DRIVER RESPONSE BUFFER UNIT 


2 






RSPBF3: : 


.BLKU 


2. 


{TOP 4 LOCATIONS OF RESPONSE 


BUFFER 


UNIT 


3 


0RBEN2: : 






{END OF RESPONSE BUFFER UNIT 


2 






0RSPB3: : 


.BLKU 


270. 


{DRIVER RESPONSE BUFFER UNIT 


3 
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2067 
2066 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2065 
2086 
2067 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 



010412 
010416 
010416 
010456 
010456 
010476 

010476 
010502 
010542 
010542 
010562 

010562 
010566 
010626 
010626 
010646 

010646 
010652 
010712 
010712 
010732 



010732 
010734 
010736 
010740 
010742 
010744 
010746 

010750 
010752 
010754 
010755 
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9.2 U/Q PORT DESCRIPTOR RINGS 



SEQ 48 



000000 
177777 
000000 
000000 
000000 
000000 
000120 

000000 
000000 
000 
004 



OSRNGO 
0RBEN3 
ROSRGO 
RORENO 
CDSRGO 
CORENO 

OSRNGl 
ROSRGl 
RORENl 
COSRGl 
COPENl 

0SRNG2 
R0SRG2 
R0REN2 
CDSRG2 
C0REN2 

DSRNG3 
R0SRG3 
R0REN3 
C0SRG3 
C0REN3 



: 9.3 CLASS 
lOSTAT 
CMSTSV; 
GCSREFi 
CNTHI: 
TIMER: 
LOOPS: 
CNTFLGi 



.BLKU 2. 
.BLKU 16. 



.BLKU 



.BLKU 
.BLKU 



2. 
16. 



.BLKU 8. 



.BLKU 
.BLKU 

.BLKU 



.BLKU 
.BLKU 



2. 
16. 



2. 
16. 



.BLKU 8. 



DESCRIPTOR RIWS UNIT 0 

END OF RESPONSE BUFFER UNIT 3 

RESPONSE DESCRIPTOR RING UNIT 0 

END OF RESPONCE DESCRIPTOR RING UNIT 0 

COMMAND DESCRIPTOR RING UNIT 0 

END OF COMMAND DESCRIPTOR RING UNIT 0 

DESCRIPTOR RING UNIT 1 

RESPONSE DESCRIPTOR RING UNIT 1 

END OF RESPONCE DESCRIPTOR RING UNIT 1 

COMMAND OESCRTPTIM RING UNIT 1 

END OF COMMAND DESCRIPTOR RING UNIT 1 

DESCRIPTOR RING {Mil 2 
RESPONSE DESCRIPTOR RING UNIT 2 
END OF RESPONCE DESCRIPTOR RING UNIT 2 
{COMMAND DESCRIPTOR RING UNIT 2 
sEND OF COMMAND DESCRIPTOR RING UNIT 2 

DESCRIPTOR RING UNIT 3 

RESPONSE DESCRIPTOR RING UNIT 3 

END OF RESPONCE DESCRIPTOR RING UNIT 3 

COMMAND DESCRIPTOR RING UNIT 5 

END OF COMMAND DESCRIPTOR RING UNIT 3 



AND PORT DRIVER VARIABLES 



.UORD 
.UORD 
.UORO 
.UORD 
.UORD 
.UORD 
.UORD 



0 

-1 

0 

0 

0 

0 

CF, 



PCKSIZ 
SAERR : 
MINLIM 
CRDLIM 
.EVEN 



.UORD 0 

.UORD 0 

.BYTE 0 

.BYTE 4 



;I/0 STATUS 
; COMMAND STATUS FROM GCS MODE 
iGCS COMMAND REFERENCE NUMBER 
s VALUE OF THE HIGH TIMEOUT 
: TIMER VALUE 

THS'CF.MSC 8 CONTROLLER FLAGSCENABLE THIS HOSTS 
iANO MISCELLANEOUS ERROR LOG MESSAGES) 
t PACKET SIZE IN BYTES 
;SA REGISTER SAVE ON ERRO<) 
{MINIMUM REQUIRED CREDIT LIMIT 
J DRIVER CREDIT LIMIT 
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SEQ 49 



2109 
2110 
2111 
2112 
211S 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 



I/O STATUS ERROR INFORMATION TABLE 



010756 
010757 
010760 
010762 
010764 

010766 
010767 
010770 
010772 
010774 

010776 
010777 
011000 
011002 
011004 

011006 
011007 
011010 
011012 
011014 

011016 
011017 
011020 
011022 
011024 

011026 
011027 
011030 
011032 
011034 



011036 
011037 
011040 
011042 
011044 

011046 
011047 
011050 
011052 
011054 

011056 
011057 
011060 
011062 
011064 



'\0l 
064 
000001 
012244 
013176 

001 
064 
000002 
012277 
013176 

001 
064 
000003 
012317 
013176 

001 
064 
000004 
012343 

013176 

001 
064 
000005 
012400 
013176 

001 
064 
000006 
012431 
013176 



001 
040 
000007 
011506 
013176 

001 
040 

000010 
011531 
013176 

001 
040 
000011 
011545 
013176 



lOERTB: : .BYTE 


DEVFAT 


• 


.BYTF 


GOTHUR 




.UORD 


1 




.WORD 


CMLSER 




.WORD 


OEVERR 




.BYTE 


DEVFAT 


• 


.BYTE 


GOTHUR 




.WORD 


2 




.WORD 


HUNGER 




.WORD 


DEVERR 




.BYTE 


DEVFAT 


ff 


.BYTE 


GOTHUR 




.UORD 


3 




.WORD 


PORTER 




.UORD 


OEVERR 




.BYTE 


DEVFAT 


t 


.BYTE 


GOTHUR 




.WORD 


4 




.WORD 


TIMERR 




.WORD 


DEVERR 




.BYTE 


DEVFAT 


s 


.BYTE 


GCTHUR 




UORD 


5 




.UORD 


SEQER 




.UORD 


DEVERR 




.BYTE 


DEVFAT 


t 


.BYTE 


GOTHUR 




.UORD 


6 




.UORD 


INITER 




.UORD 


DEVERR 





GET COMMAND STATUS FAILED 



s CONTROLLER HUNG 



t POrtT DETECTED ERROR 



: PROGRAM DETECTED COMMAND TIMEOUT 



: COMMAND SEQUENCE ERROR 



: ERROR DETECTED DURING INIT 



PROGRAM DETECTED ERROR INF^aRMATION TABLE 



CMOT: 



ABOT: 



OFLTi 



.BYTE 


DEVFAT 


.BYTE 


6STEUR 


.UORD 


7. 


.UORD 


CnOER 


.UORD 


DEVERR 


• BYTE 


DEVFAT 


.BYTE 


GSTEUR 


.UORD 


8. 


.UORD 


ABOER 


.UORD 


OEVERR 


.BYTE 


DEVFAT 


.BYTE 


GSTEUR 


.UORD 


9. 


.UORD 


OFLER 


.UORD 


DEVERR 



: INVALID COMMAND ISSUED 



.-COMMAND ABORTED 



;UNIT OFFLINE 



I 
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2166 
2167 
2166 
2X69 
2170 
2171 
2172 
217S 
2174 
2175 
2176 
2177 
2176 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
220X 
2202 
2203 
2204 
2205 
2206 
?207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2216 
2219 
2220 
2221 
222i 



011066 
011067 
011070 
011072 
011074 

011076 
011077 
011100 
011102 
011104 

011106 
011107 
011110 
011112 
011114 

011116 
011117 
011120 
011122 
011124 

011126 
011127 
011130 
011132 
011134 

011136 
011137 
011140 
011142 
011144 

011146 
011147 
011150 
011152 
011154 

0111S6 
011157 
011160 
011162 
011164 

011166 
011167 
011170 
011172 
011174 

011176 
011177 



001 
040 
000012 
011562 
013176 

001 
040 

000013 
012166 
013176 

001 
040 
000C14 
011607 
013176 

002 
062 
000015 
C1^515 
013176 

001 
052 
000016 
011634 
013176 

001 
064 

000017 
012216 
013176 

001 
064 
000020 
011725 
013176 

001 
064 
000021 
011746 
013176 

001 
064 
000022 
011762 
013176 

001 
040 



AVLT ; : 


.BYTE 


DEVFAT 




.BYTE 


GSTEUR 




.UORD 


iO. 




.UORD 


AVLER 




.WORD 


OEVERR 


IVSTl: : 


.BYTE 


DEVFAT 




.BYTE 


GSTEUR 




.UORD 


11. 




.UORD 


IVSER 




. UORD 


OEVERR 


UPRT: : 


.BYTE 


DEVFAT 




.BYTE 


GSTEUR 




.UORD 


12. 




.UORD 


UPRER 




. UORD 


DCVCRR 


CMPT: : 


.BYTE 


HARD 




.BYTE 


GDCERR 




.UORD 


13. 




.UORD 


CMPER 




1 man 
.UORD 


uf oo 


HOATT : : 


.BYTE 


DEVFAT 




.BYTE 


GHRDUR 




.UORD 


14. 




.UORD 


HDATER 




\Jf\DF\ 

. UUKU 


UtVtHK 


HSTT : : 


.BYTE 


DEVFAT 




.BYTE 


GOTHUR 




.UORD 


15. 




.UORD 


HSTER 




, UUHU 


UtVtKH 


CNTT: : 


.BYTE 


DEVFAT 




.BYTE 


GOTHUR 




.UORD 


16. 




.UORD 


CNTER 




. mUHV 


UCVcKn 


ORVT: : 


.BYTE 


DEVFAT 




.BYTE 


GOTHUR 




.UORD 


17. 




.UORD 


ORVER 




.UORD 


OEVERR 


FMTT: : 


.BYTE 


DEVFAT 




.BYTE 


GOTHUR 




.UORD 


18. 




.UORD 


FMTER 




.UORD 


OEVERR 


BOTT:: 


.BYTE 


DEVFAT 




.BYTE 


GSTEUR 



:UNIT AVAILABLE ERROR 



: INVALID STATUS RETURNED 



;UNIT URITE PROTECTED 



sOATA COHPARE ERROR 



sHARD DATA ERROR 



jHOST DETECTED TIMEOUT 



5 CONTROLLER ERROR 



: DRIVE ERROR 



I FORMATTER ERROR 



: UNEXPECTED BOT ENCOUNTERED 



OLOeAL MtCAS riACRO r05.02 
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222S 
2224 
222S 
2226 
???7 
222ft 
2229 
2250 
223 1 
2252 
2235 
2254 
2255 
225« 
2257 
2256 
2259 
2240 
2241 
2242 
2245 
2244 
224S 
224*'. 
2247 
2244 
2249 
2250 
2251 
2252 
2235 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2265 
2264 
2265 
2266 
2267 
2266 
2269 
2270 
2271 
2272 
2275 
2274 
2275 
2276 
2277 
2276 
2279 



011200 
011202 
011204 

011206 
011207 
011210 
011212 
011214 

011216 
011217 
011220 
011222 
011224 

011226 
011227 
011250 
011252 
011254 

011256 
011257 
011240 
011242 
011244 

011246 
011247 
011250 
011252 
011754 

011256 
011257 
011260 
011262 
011264 

011266 
011267 
011270 
011272 
011274 

011276 
011277 
011500 
011502 
011504 

011506 
011507 
011510 
01151? 
011S14 



000025 
012002 
015176 

001 
040 
000024 
012022 
015176 

001 
040 
000025 
012166 
015176 

001 
040 
000026 
C 12050 
013176 

001 
040 

000027 
012076 
015176 

001 
040 
000050 
012114 
015176 

001 
040 
000051 
0121S<^ 
01517b 

001 
040 
000052 
012166 
015176 

002 
062 
000055 
012540 
015176 

002 
040 
000054 
012452 
015176 
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TMT:: 



1VST2:: 



ftOTT:: 



POLT; 



SEXT;; 



LEOT : : 



IVST5:: 



OCHPTi 



RLSTi 



.uaRO 


19. 


.yoRO 


BOTER 


.UORO 


DCVERR 


.BYTE 


OeVFAT 


.BYTE 


6STEUR 


.WORD 


20. 


.UORO 


TTCR 


.UORO 


DCVERR 


• BYTE 


OEVFAT 


.BYTE 


GSTEUR 


.UORO 


21. 


.WORD 


IVSER 


.WORD 


OCVERR 


.BYTE 


OEVFAT 


.BYTE 


GSTEUR 


.UORO 


22. 


.UORO 


ROTER 


UORO 


OEVERR 


.BYTE 


t«VFAT 


.BYTE 


GSTEUR 


.UORO 


25. 


.UORO 


POLER 


.UORO 


OEVERR 


.BYTE 


OEVFAT 


.BYTE 


GSTEUR 


.UORO 


24. 


.UORO 


SEXER 


.UORO 


OEVERR 


.BYTE 


DEVFAT 


• BYTE 


GSTEUR 


.UORO 


25. 


.UORO 


LEOER 


.UORO 


OEVERR 


.BYTE 


OEVFAT 


.BYTE 


GSTEUR 


.UORO 


26. 


.UORO 


IVSER 


.UORO 


OEVERR 


.BYTE 


HARD 


.BYTE 


GOCERR 


.UORO 


27. 


.UORO 


OCtfffR 


.UORO 


DEVERR 


.BYTE 


HARD 


.BYTE 


GSTEUR 


.UORO 


28. 


.UORO 


RLSER 


.UORO 


OEVERR 



: UNEXPECTED TAPE HARK ENCOUNTEREO 



i INVALID STATS RECEIVED 



:OATA RECORD TRUNCATED 



:TAPE POSITION LOST 



{SERIOUS EXCEPTION 



sLEOT ENCOUNTEREO 



(INVALID STATUS RETURNED 



;OATA COMPARE ERROR 



{RECORD LENGTH SHORT ERROR 
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2290 
2291 
2282 
22«S 
22M 
2289 
228« 
2287 
2288 
2288 
2290 
2281 

im 
IIS 
ii;^ 

2288 
2288 

2SO0 
230t 
2902 
2S0i 
2S04 
2S0S 
2308 
2507 
2S08 
2308 
2310 
2311 
2312 
2313 
2314 
2315 
2318 
2317 



011316 
011317 
011320 
011322 
011324 



011326 
011328 
011327 
011130 
01135? 
011334 

011338 
011S38 
011537 
011340 
011342 
011S44 

011346 
011348 
011347 
011350 
011352 
011354 

011356 
011356 
011357 
011360 
011362 
011364 



003 
046 
000035 
011654 
013:76 



002 
040 
000036 
012622 
014424 



002 
040 
C00037 
012647 
014424 



003 
074 
000040 
012572 
014424 



002 
074 
000041 
012675 
014424 



SOATT: 



.BYTE SOFT 

.BYTE CSFTUR 

.UORO 29. 

.UORO SMTOt 

.UORO OEVCRR 



lEMtOR LOG ERftOR TABLES 



CNTERL: 



BAOERL: 



TPEERL: 



UNKERL: 



.BYTE 
.BYTE 
.UORO 
.UORD 
.UORO 



-BYTE 
.BYTE 
.UORO 
.UORD 
.UORO 



-BYTE 
.BYTE 
.UORD 
.UORD 
.UORO 



.BYTE 
.BYTE 
.UORO 
.UORO 
.UORO 



HARD 

GSTEUR 
30. 
CHTEL 
01LGER 



HARD 

GSTEUR 

31. 

BAOEL 

ERLGER 



SOFT 

GNOERR 

32. 

TPEEL 

ERLGER 



HARD 
GNOERR 

33. 

UNKEL 

ERLGER 



I SOFT DATA ERROR 



; CONTROLLER ERROR LOG 



iHOST MEHORY ACCSESS ERROR 



(TAPE TRANSFER ERROR LOG 



iUNKNOUN ERROR LOG 
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.SBTTL GLOBAL TEXT SECTION 
, COttlANO PRIMITIVE ASCII 



SEQ 53 



3* 1 Q 










































01 1366 












116 


125 


114 


2325 


011372 


122 


104 


040 


2326 


011376 


127 


122 


124 


2327 


011402 


103 


115 


120 


2320 


011406 


101 


103 


103 


2329 


011412 


123 


120 


103 


2330 


011416 


123 


113 


120 


2331 


011422 


123 


120 


117 


2332 


011426 


127 


124 


115 


2333 


011432 


105 


122 


123 


2334 


011436 


105 


122 


107 


2335 


011442 


101 


126 


114 


2336 


011446 


117 


116 


114 


2337 


011452 


123 


125 


103 


2336 


011456 


122 


105 


137 


2339 011462 


111 


116 


124 


2340 


011466 


101 


102 


117 


2341 


011472 


107 


103 


123 


2342 


011476 


107 


125 


123 


2343 


011502 


123 


103 


103 


2344 










2345 











CNOASC: 



SPCASC: 



.ASCIZ 
.ASCIZ 
•ASCIZ 
.ASCIZ 
. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
•ASCIZ 
•ASCIZ 
•ASCIZ 
•ASCIZ 
•ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



7NUL? 
/RD ? 
?WRT? 
7CMP? 
7ACC7 
7SPC? 
?S<P? 
?SPO? 
7UTM? 
7ERS7 
?ERG? 
?AVL? 
70NL? 
7SUC? 
?REU? 
?INT? 
7AB0? 
?GCS? 
7GUS? 
7SCC? 



NULL 
READ 
WRITE 

COMPARE HOST DATA 
ACCESS 

SPACE RECORDS 
iSKIP TAPE MARKS 
: SPACE OBJECTS 
; WRITE TAPE MARK 
i ERASE 
I ERASE GAP 
(AVAILABLE 

ONLINE 

SET UNIT CHARACTERISTICS 

REWIND 

INITIALIZE 

ABORT 

GET COMMAND STATUS 

GET UNIT STATUS 

SET CONTROLLER CHARACTERISTICS 
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2347 










• 


2348 










{ FORM 


2349 










; 


2350 












2351 


011506 


111 


116 


126 


CMDER : 


2352 


011531 


103 


115 


104 


ABOER : 


2353 


011545 


125 


116 


111 


OFLER : 


2354 


011562 


125 


116 


111 


AVLER: 


2355 


011607 


125 


116 


111 


UPRER : 


2356 


011634 


110 


101 


122 


HOATER 


2357 011654 


123 


117 


106 


SOATER 


2358 


011674 


110 


117 


123 


BADER: 


2359 


011725 


103 


117 


116 


CNTER ; 


2360 


011746 


104 


122 


111 


DRVER : 


2361 


011762 


106 


117 


122 


FMTER: 


2362 


012002 


102 


117 


124 


BOTER: 


2363 


012022 


124 


101 


120 


TMER: 


2364 


012050 


104 


101 


124 


RDTER: 


2365 


012076 


120 


117 


123 


POLER : 


2366 


012114 


123 


105 


122 


SEXER: 


2367 


012136 


114 


117 


107 


LEDER: 


2368 


012166 


111 


116 


126 


IVSER: 


2369 


012216 


110 


117 


123 


HSTER : 


2370 012244 


116 


117 


040 


CMLSER 


2371 


012277 


103 


117 


116 


HUNGER 


2372 


012317 


120 


117 


122 


PORTER 


2373 


012343 


120 


122 


117 


TIMERR 


2374 


012400 


122 


105 


123 


SEQER : 


2375 


012431 


120 


117 


122 


INITER 


2376 


012452 


122 


105 


103 


RLSER : 


2377 


012476 


123 


124 


101 


STATER 


2378 


0125 IS 


104 


101 


124 


CMPER : 


2379 


012540 


123 


057 


127 


DCMPER 


2380 
2381 












012572 


124 


101 


120 


TPEEL : 


2382 


012622 


103 


117 


116 


CNTEL : 


2383 


012647 


110 


117 


123 


BADEL: 


2384 


012675 


125 


116 


113 


UNKEL: 


2385 












2386 


012733 


122 


105 


124 


RTYEL: 


2387 


012766 


122 


105 


124 


COREL : 


2388 


013022 


110 


101 


122 


UREEL: 


2389 


013046 


110 


101 


122 


UUEEL: 


2390 


013073 


104 


101 


124 


CMPEL: 


2391 


013122 


114 


117 


116 


LGPEL : 


2392 


013146 


104 


122 


111 


ORVEL : 


2393 










.EVEN 



2400 
2401 

I 
t 
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SEO 54 



STATEMEN.'E USED IN PRINT CALLS 



.ASCIZ /INVALID CMO ISSUED/ 

.ASCIZ /CMD ABORTED/ 

.ASCIZ /UNIT OFFLINE/ 

.ASCIZ /UNIT AVAILABLE ERROR/ 

.ASCIZ /UNIT URITE PROTECTED/ 

.ASCIZ /HARD DATA ERROR/ 

.ASCIZ /SOFT DATA ERROR/ 

.ASCIZ /HOST BUFFER ACCESS ERROR/ 

.ASCIZ /CONTROLLER ERROR/ 

.ASCIZ /DRIVE ERROR/ 

.ASCIZ /FORMATTER ERROR/ 

.ASCIZ /SOT ENCOUNTERED/ 

.ASCIZ /TAPE MARK ENCOUNTERED/ 

.ASCIZ /DATA RECORD TRUNCATED/ 

.ASCIZ /POSITION LOST/ 

.ASCIZ /SERIOUS EXCEPTION/ 

.ASCIZ /LOGICAL EOT ENCOUNTERED/ 

.ASCIZ /INVALID STATUS RECEIVED/ 

.ASCIZ /HOST DETECTED TIMEOUT/ 

.ASCIZ /NO RESPONSE TO GCS COMMAND/ 

.ASCIZ /CONTROLLER HUNG/ 

.ASCIZ /PORT -DETECTED ERROR/ 

.ASCIZ /PROGRAM DETECTED CMO TIMEOUT/ 

.ASCIZ /RESPONSE OUT OF SEQUENCE/ 

.ASCIZ /PORT INIT FAILED/ 

.ASCIZ /RECORD LENGTH SHORT/ 

.ASCIZ /STATUS MESSAGE/ 

.ASCIZ /DATA COMPARE ERROR/ 

.ASCIZ ?S/U DETECTED DATA COMPARE? 

.ASCIZ /TAPE TRANSFER ERROR LOG/ 

.ASCIZ /CONTROLLER ERROR LOG/ 

.ASCIZ /HOST MEMORY ERROR LOG/ 

.ASCIZ /UNKNOWN ERROR LOG FORMAT CODE/ 

.ASCIZ /RETRY RECOVERED READ ERRO"/ 

.ASCIZ /RETRY RECOVERED URITE ERROR/ 

.ASCIZ /HARD READ ERROR LOG/ 

.ASCIZ /HARD URITE ERROR LOG/ 

.ASCIZ /DATA COMPARE ERROR LOG/ 

.ASCIZ /LONG GAP ENCOUNTERD/ 

.ASCIZ /DRIVE ERROR LOG/ 
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2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
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.SBTTL GLOBAL ERROR REPORT SECTION 



SEQ SS 



2419 
2420 

2421 



2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 



2432 
2433 
2434 
2435 



2436 
2437 
2438 
2439 



013166 
013166 
013166 
013170 
013172 
013174 

013176 
013176 
013176 
013176 
013200 
013202 
013206 
013212 
013216 
013222 
013224 
013230 
013236 
013244 
013246 
013246 
013252 
013254 
013260 
013264 
013266 
013270 
013274 
013276 
013304 
013306 
013306 
013312 
013314 
013320 
013324 
013326 
013330 
013334 
013336 
013344 
013346 
013346 
013352 
013354 
013360 
013364 



000000 
000000 
000000 
000000 



010146 
C10546 
013703 
013704 
116205 
042705 
006205 
062705 
016237 
042737 
001014 

016446 
010546 
012746 
012746 
010600 
104414 
062706 
000513 
022737 
001014 

016446 
010546 
012746 
012746 
010600 
104414 
06270* 
000473 
032737 
001414 

016446 

010546 
012746 
012746 
010600 



I** 



THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTS AND PRINTX CALLS 
THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
THAT ARE USED BY THE PRINTS AND PRINTX CALLS.. 



LiERRTBL 
ERRTYP 
ERRNBR 
ERRMSG 
ERRSLK 



ERRTBL 



{GENERIC ERROR TABLE 



. WORD 0 

. UORO 0 

. UORO 0 

. WORD 0 









BGNMSG 


DEVERR 










DEVERR : 


: 














PUSH 


<R1.R5> 


iSAVE Rl AND R5 








MOV 


Rl.-(SP) ;!PUSH 


Rl ON STACK 








MOV 


R5.-(SP) !:PUSH 


R5 ON STACK 


003740 






MOV 


R3SAVE.R3 




RESTORE R3 


003742 






MOV 


R4SAVE.R4 




RESTORE R4 


000000 






MOVB 


CMDCR2).R5 




GE"' THE COMMAND PRIMITIVE 


177407 






BIG 


♦177407. R5 




CLEAR MODIFIERS 






ASR 


R5 




THE PRIMITIVE 


011366 






ADD 


♦CM0ASG.R5 




PUT ADDRESS IN R5 


000000 


003710 




MOV 


CM0(R2).R8 




GET THE PRIMITIVE AGAIN 


177770 


003710 




BIG 


♦177770, Re 




SAVE THE LAST 3 BITS 






BNE 


10$ 




BRANCH IF NOT ZERO 








PRINTS 


♦ERROO . R5 . TKUNITC R4 ) 






000004 






MOV 


TKUNIT(R4), -CSP) 












MOV 


R5,-(SP) 






015730 






MOV 


♦ERROO. (SP) 






000003 






MOV 


♦3. -CSP) 












MOV 


SP.RO 












TRAP 


CIPNTS 






000010 






ADD 


♦10. SP 










BR 


60$ 




GO PRINT THE REST OF THE MESSAGE 


000001 


C03710 


101: 


GMP 


♦REVBIT.RS 




IS IT A REVERSE ? 






BNE 


20$ 




BRAUCH IF NOT 








PRINTS 


♦ERROl . RS . TKUNITC R4 ) 






000004 






MOV 


TKUNIT(R4).-(SP) 










MOV 


R5.-(SP) 






016000 






MOV 


♦ERROl. -(SP) 






000003 






MOV 


♦3. -CSP) 












MOV 


SP.RO 












TRAP 


CIPNTS 






JOOOlO 






ADD 


♦10. SP 










BR 


60 » 




[GO PRINT THE REST OF THE MESSAGE 


000002 


003710 


201: 


BIT 


♦E0TSIT.R8 




sis IT A DETECT LEOT ? 




SEQ 


30 ( 




.BRANCH IF NOT 








PRINTS 


♦eRR02.R5.TKUNIT(R4) 






000004 






MOV 


TKUNIT(R4). (SP) 












MOV 


R5.-(SP) 






016056 






MOV 


♦ERR02.-(SP) 






000003 






MOV 


♦3.-(SP) 












MOV 


SP.RO 
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TRAP 
AOO 
BR 

037 10 30 »: CMP 
BNE 

PRINTS 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
AOO 
BR 

03710 40» : CMP 
BNE 

PRINTB 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
AOO 
BR 

50» : PRINTB 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
AOO 

60 t: PRINTB 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
AOO 
CMP 
BLOS 
PRINTB 
MOV 
MOV 
MOV 
MOV 
TRAP 
AOO 

70$: PRINTB 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 







1 /\AA^ A 


























VWW J 


2442 


A1 %At\A 


A01 m 4 




OAAX 












011^44 A 


000004 






01 0^1^ 

VX V 








VXC ' 








019746 


000003 

WWW W 




V X 


010600 








104414 






013430 


062706 


000010 




01S4S4 


000433 






01 X4S6 


022737 


000004 




01M44 


001014 




f 


01S446 
vx*^^w 






013446 


016446 


000004 




013452 


010546 






013454 


C12746 


016213 




013460 


012746 


000003 




013464 


010600 






013466 


104414 






013470 


062706 


000010 




013474 


000413 




3449 


013476 








013476 


016446 


000004 




013502 


010546 






013504 


012746 


016272 




013510 


012746 


000003 




013514 


010600 






01SS16 


104414 






013520 


062706 


000010 




013524 

VX W^C^ 








013524 


016446 


000024 




013530 


013746 


003700 




013534 


012746 


016351 




013540 


012746 


000003 




013544 


010600 

W A WW W W 






013546 


104414 






013550 


062706 


000010 


2451 


013554 


022705 


011412 


2452 


013560 


101412 




24S3 


013562 








01SS62 


013746 


00SS74 




013566 


012746 


016421 




013572 


012746 


000002 




013576 


010600 






013600 


104414 






013602 


062706 


000006 


2454 


013606 








013606 


016246 


000004 




013612 


016246 


000006 




013616 


012746 


016461 




013622 


012746 


000003 




013626 


010600 






013630 


104414 
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SEQ 56 



C»PNTB 
♦10. SP 
60$ 

♦IMMBIT.RB 
40* 

«ERR03 .R5 . TKUNIT(R4 } 
TKUNIT(R4). (SP) 
R5.-(SP) 
•ERR03.-(SP) 
♦3.-CSP) 
SP.RO 
C»PNTB 
•10. SP 
60$ 

«UNLBIT,R8 
50 » 

«ERR04 . RS , TKUNI T C R4 ) 
TKUNIT(R4). -(SP) 
R5.-(SP) 
«ERR04.-(SP) 
♦3.-(SP) 
SP.RO 
CtPNTB 
♦10. SP 
60* 

♦ERR05 . R5 . TKUNIT ( R4 ) 
TKUNIT(R4).-(SP) 
R5.-(SP) 
♦ERR05.-(SP) 
♦3.-(SP) 
SP.RO 
CIPNTB 
♦10. SP 

♦ERR06 . PASCNT . PATSAVC R4 ) 

PATSAV(R4).-(SP) 

PASCNT. -CSP) 

♦ERR06.-(SP) 

♦3. -CSP) 

SP.RO 

CIPNTB 

♦10. SP 

♦SPCASC.RS : IS IT A DATA TRANSFER ERROR ? 

701 iNO. OON'T PRINT THE BYTE COUNT 

#ERR07. BYTES sPRINT THE BYTE COUNT 

BYTES. -CSP) 

♦ERR07.-(SP) 

♦2. -CSP) 

SP.RO 

CtPNTB 

♦6.SP 

♦ERR08 . OBOr FHC R2 ) . OBOFFLC R2 ) 

0B0FFL(R2).-(SP) 

0B0FFH(R2).-(SP) 

♦ERR08.-(SP) 

♦3. -CSP) 

SP.RO 

CIPNTB 



GO PRINT THE REST OF THE MESSAGE 
IS IT A IMMEDIATE ? 
BRANCH IF NOT 



GO PRINT THE REST OF THE MESSAGE 
IS IT A UNLOAD ? 
BRANCH IF NOT 



:G0 PRINT THE REST OF THE MESSAGE 
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WC ' vw 


OOOOlO 






ADO 




VX 


032764 


000200 


000026 




BIT 






001412 








BEQ 














PRINTB 




013746 


003562 






MOV 




013652 


012746 


017110 






MOV 




013656 


012746 


000002 






MOV 




013662 


010600 








MOV 




013664 


104414 








TRAP 




013666 


062706 


000006 






AOO 


2456 


013672 


122737 


000006 


010732 


80t: 


CMPB 


2459 


013700 


001001 








BNE 


2460 


013702 


000404 








BR 


2461 


013704 


122737 


000003 


010732 


90$ ; 


CMPB 


2462 


013712 


001014 








BNE 


246S 


013714 








1001: 


PRINTB 




013714 


013746 


010752 






MOV 




013720 


012746 


016557 






MOV 




013724 


012746 


000002 






MOV 




013730 


C 10600 








MOV 




013732 


104414 








TRAP 




013734 


062706 


000006 






ADO 


2464 


013740 


005037 


010752 






CLR 


24f^ 


013744 


105737 


010732 




110*: 


TSTB 


2460 


013750 


001154 








Bre 


2467 


013752 


032764 


000200 


000026 




BIT 


2468 


013760 


001150 








BNE 


2469 


013762 


005737 


003622 






TST 


2470 


013766 


001051 








BNE 


2471 


013770 










PRINTX 




013770 


012746 


016611 






MOV 




013774 


012746 


000001 






MOV 




014000 


010600 








MOV 




014002 


1044 IS 








TRAP 




014004 


062706 


000004 






AOO 


2472 


014010 










PRINTX 


014010 


012746 


016637 






MOV 




014014 


012746 


000001 






MOV 




014020 


010600 








MOV 




014022 


104415 








TRAP 




014024 


062706 


000004 






AOO 


2473 


014030 


010305 








MOV 


2474 


014032 


010301 








MOV 


2475 


014034 


062701 


000002 






ADO 


2476 


014040 


005763 


177774 




PRIPCK : 


TST 


2477 


014044 


100422 








BMI 


2478 


014046 










PRINTX 


014046 
014050 


011546 
011146 








<< 




014052 


01^746 


016675 






MOV 




014056 


012746 


000003 






MOV 




014062 


010600 








MOV 




014064 


104415 








TRAP 




014066 


062706 


000010 






AOO 


?479 


014072 


062701 


000004 






ADD 


2480 


014076 


062705 


000004 






ADD 


2481 


014102 


162763 


000004 


177774 




SUB 



26 2 



SEQ 57 



.-10. SP 

«ftETFLG.LUNFLG(R4) 
80 1 

•ERRIB.MANCNT 

MANCNT.-CSP) 

•ERRIB.-CSP) 

*2.-(SP) 

SP.RO 

CIPNTB 

•6.SP 

•INTERR.IOSTAT 

90) 

1001 

♦lOPORE.IOSTAT 
110$ 

«ERR10.SAERR 

SAERR.-CSP) 

•ERRIO.-CSP) 

♦2.-(SP) 

<;p Rf» 

C»PNTB 

•6.SP 

SAERR 

lOSTAT 

OEVEXT 

•RETFLG.LU».FLG(R4) 

DEVEXT 

CMPERR 

CMPPRI 

«ERR11 

«ERR11.-(SP) 

#1.-(SP) 

SP.RO 

C»PNTX 

«4.SP 

«eRR12 

♦eRR12.-(SP) 

•l.-(SP) 

SP.RO 

CIPNTX 

«4,SP 

R3.RS 

R3.R1 

«2.R1 

MSGLEN(R3) 

CMPPRI 

«ERR13.(R1),(RS) 

(R5).-(SP) 

(Rl).-(SP) 

♦ERR13.-(SP) 

•3.-CSP) 

SP.RO 

C»PNTX 

♦10. SP 

«4.R1 

44. RS 

«4.MSGLEN(R3) 



ARE UE DOING RETRIES ? 

NO. DON'T PRINT RETRY COUNT 

PRINT THE RETRY COUNT 



sis IT A PORT INIT FAILURE ? 
sKEEP GOING IF IT ISN'T 
J GO PRINT SA CONTENTS 

IS IT A PORT DETECTED FAILURE 1 

KEEP GOING IF IT ISN'T 

PRINT THE SA CONTENTS IF IT IS 



CLEAR THE ERROR OUT OF THE LOCATION 

UAS IT AN I/O ERROR ? 

GET OUT IF IT UAS 

ARE UE DOING RETRIES ? 

DON'T PRINT PACKET 

UAS IT A COMPARE ERROR ? 

GO PRINT THE ERROR DATA 



:GET POINTER TO RESPONSE PACKET 

sAND A SECOND COPY 
Rl POINT TO SECOND UORO OF PACKET 
CHECK THE MESSAGE LENGTH 
GET OUT IF IT UENT NEGATIVE 



GET THE NEXT UORO 
AND AGAIN 

ADJUST MESSAGE LENGTH OOUN 2 UOROS 
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nonday 26 Aug 65 09:54 Page 26 3 



SEQ 56 



2482 
2483 
2404 
2465 
2406 
2487 
2480 
2489 



2490 



2491 



2492 
2493 
2494 
2495 
2496 
2497 
2498 



2499 

2500 
2501 



2502 
2503 
2504 



014110 
014112 
014116 
014120 
014122 
014126 
014132 
014136 
014136 
014142 
014146 
014150 
014152 
014156 
014156 
014162 
014166 
014170 
014172 
014176 
014176 
014200 
014202 
014204 
014210 
014212 
014216 
014222 
014224 
014226 
014232 
014236 
014240 
014242 
014244 
014250 
014252 
014252 
014254 
014260 
014264 
01 4266 
014270 
014274 
014300 
014302 
014302 
014306 
014312 
014314 
014316 
014322 
014326 
014330 
014330 
014332 
014336 



001353 
005737 
001471 

012701 
012702 
013705 

012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 

062706 

005046 
151216 
005046 
156216 
011146 
012746 
012746 
010600 
104415 
062706 
005337 
001405 
005721 
005722 
022701 
001352 

010546 
012746 
012746 
010600 
104415 
062706 
005037 



012746 
012746 
010600 
104417 
062706 
105737 
001431 

005046 
153716 
005046 



003622 



003624 
003650 
003622 

016726 
000001 



00000' 

016754 
000001 



000004 



000001 

017024 
000004 



000012 
003622 



003650 



017051 
000002 



000006 
003622 



0205^4 
000001 



000004 
002216 



002221 



BNE 

CMPPRI: TST 
BEQ 
PUSH 
flOV 
flOV 
MOV 

PRINT X 

nov 
nov 

flOV 

TRAP 

ADO 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

II: PRINTX 
CLR 
BISB 
CLR 
BISB 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
DEC 
BEQ 
TST 
TST 
CMP 
BNE 

CPRIEX: PRINTX 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
CcR 
POP 

DEVeXT: PRINTF 
MOV 
MOV 
MOV 
TRAP 
AOU 
TSTB 
BEQ 
PRINTF 
CLR 
BISB 
CLR 



PRIPCK 
CMPERR 
OEVEXT 

<R2> 

•eYTADO.91 

«0ATBL.R2 
CMPERR. R5 
«ERR14 

♦eRR14.-(SP) 

♦l.-CSP) 

SP.RO 

CIPNTX 

♦4.SP 

4ERR15 

•ERRIS.-CSP) 

♦l.-CSP) 

SP.RO 

CIPNTX 

♦4.SP 

•£RR16.(R1).<B 

-CSP) 

(R2).(SP) 

-CSP) 

0NECR2).CSP) 

(R1),-CSP) 

•ERR16.-(SP) 

•4. -CSP) 

SP.RO 

C»PNTX 

*12.SP 

CMPERT 

CPRIEX 

CRl)^ 

CR2)^ 

*TBLEND.R1 
1* 

♦eRR17.R5 

R5,-(SP) 

#ERR17,-(SP) 

#2. -CSP) 

SP.RO 

C»PNTX 

«6.SP 

CMPERR 

<R2> 

«Lirc 

•LINE. -CSP) 

♦l.-CSP) 

SP.RO 

C»PNTF 

♦4,SP 

CLOCK 

1« 

«TIME,<B. HOURS 
-'SP) 

SECOND. CSP) 
-CSP) 



KEEP PRINTING TILL ALL DONE 
UAS THIS A COMPARE ERROR ? 
GET OUT IF IT WASN'T 
SAVE R2 

POINT Rl TO THE BYTE ADDRESS TABLE 

POINT R2 TO THE WRITE DATA TABLE 

LET R5 - THE NUMBER OF BYTES IN ERROR 



.0NECR2)>.<B.CR2}> 



J SUBTRACT 1 FROM NUMBER OF ERRORS 
iGO PRINT TOTAL NUMBER IN ERROR 
POINT Rl TO THE NEXT ADDRESS 
POINT R2 TO THE NEXT DATA 
HAVE UE PRINTED THE WHOLE TABLE ? 
NO CONTINUE 



i CLEAR THE ERROR COUNTER 



;IS THE CLOCK ENABLED 
sNO, THEN CAN'T PRINT TIME 
> . <B . MINUTE > . <B . SECONO> 



i 
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014340 
014344 
014346 
014352 
014356 
014362 
014364 
014366 

2505 014372 
014372 
014376 
014402 
014404 
014406 

2506 014412 

2507 014416 
014416 
014420 

2500 014422 
014422 
014422 
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153716 


002220 


BISB 


MINUTE. (SP) 


005046 




CLR 


-(SP) 


153716 


002217 


BISB 


HOURS , ( SP ) 


012746 


020037 


MOV 


♦TIME.-(SP) 


012746 


000004 


MOV 


♦4. -CSP) 
SP.RO 


010600 




MOV 


104417 




TRAP 


C«PNTF 


062706 


000012 


ADD 

PRINTF 


«12.SP 
•LINE 


01274© 


020324 


nov 


Mi TUC f CO ^ 


012746 


000001 


MOV 


♦l.-(SP) 


010600 




MOV 


SP.RO 


104417 




TRAP 


C«PNTF 


062706 


000004 


ADD 

1»: POP 

EXIT 


•4.SP 

<R5.R1> 

MSG 


000167 




.UORD 


J»JMP 


000000 




.hORD 
ENDMSG 

L 10002: 


L100O2-2-. 


104423 




TRAP 


C«MSG 



SEQ 59 
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2510 


014424 
014424 






2511 


014424 
014424 
014426 


010146 
010546 




2512 


014430 


013703 


003740 


2513 


014434 


013704 


003742 


2514 


014440 


113705 


003716 


2515 


014444 


042705 


177407 


2516 


014450 


006205 




2517 


014452 


062705 


011366 


2518 


014456 


013737 


003716 


2519 


014464 


042737 


177770 


2520 


014472 


001014 




2521 


014474 








014474 


016446 


000004 




014500 


010546 






014502 


012746 


015730 




014506 


012746 


000003 




014512 


C10600 






014514 


104414 






014516 


062706 


000010 


2522 


014522 


000512 




2523 


014524 


022737 


000001 


2524 


014532 


001013 




2525 


014534 








014534 


016446 


000004 




014540 


010546 






014542 


012746 


016000 




014546 


012746 


000003 




014552 


010600 






014554 


104414 






014556 


062706 


000010 


2526 


014562 


032737 


000002 


2527 


014570 


001414 




2528 


014572 








014572 


016446 


000004 




014576 


010546 






014600 


012746 


016056 




014604 


012746 


000003 




014610 


010600 






014612 


104414 






014614 


062706 


000010 


2529 


014620 


000453 




2530 


014622 


022737 


000003 


2531 


014630 


001014 




2532 


014632 








014632 


016446 


000004 




014636 


010546 






014640 


012746 


016135 




014644 


012746 


000003 




014650 


010600 






014652 


104414 






0146S4 


062706 


000010 


2533 


014660 


000433 




2534 


014662 


022737 


000004 


2535 


014670 


001014 





ERLGER: 



BGNnSG 

'push 
nov 
nov 

MOV 

MOV 

MOVB 

BIG 

ASR 

ADD 

MOV 

BIC 

BNE 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

CMP 

BNE 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

BIT 

BEQ 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

CMP 

B^C 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

CMP 

BNE 



27 



SEQ 60 



ERLGER 



<R1.R5> 

Rl.-(SP) sjPUSH 

R5.-(SP) sjPUSH 

R3SAVE.R3 

R4SAVE.R4 

R11.R5 

♦177407. R5 

RS 

«CM0ASC.R5 
Rll.RS 
•177770. R8 
51 

•ERROO . R5 . TKUNITC R4 ) 

TKUNIT(R4).-(SP) 

R5.-(SP) 

♦ERROO. -(SP) 

♦3.-(SP) 

SP.RO 

CtPNTB 

♦10. SP 

30$ 

♦REVBIT.R8 
101 

♦ERROl . R5 . TKUNITC R4 ) 

TKUNIT(R4).-(SP) 

R5.-(SP) 

♦ERROl. -CSP) 

♦3.-(SP) 

SP.RO 

C*PNTB 

♦10. SP 

♦E0TBIT.R8 

151 

♦ERR02 . R5 . TKUNITC R4 ) 

TKUNITC R4).- CSP) 

R5.-CSP) 

♦ERR02.-CSP) 

♦3. -CSP) 

SP.RO 

CIPNTB 

♦10. SP 

30* 

♦IMMBIT.R8 
20 1 

♦ERR03 . R5 . TKUNITC R4 ) 

TKUNITCR4).-CSP) 

R5.-CSP) 

♦ERR03.-CSP) 

♦3. -CSP) 

SP.RO 

CIPNTB 

•10. SP 

30$ 

•UNLBIT.R8 
25 « 



:SAVE Rl AND RS 
Rl ON STACK 
R5 ON STACK 

J RESTORE R3 

{RESTORE R4 

J GET THE COMMAND PRIMITIVE 

: CLEAR MODIFIERS 

8 THE PRIMITIVE 

iPUT ADDRESS IN R5 

sGET THE PRIMITIVE AGAIN 

••SAVE THE LAST 3 BITS 

i BRANCH If NOT ZERO 



sGO PRINT THE REST OF THE MESSAGE 
sis IT A REVERSE ? 
{BRANCH IF NOT 



J IS IT A DETECT LEOT 
{BRANCH IF NOT 



GO PRINT THE REST OF THE MESSAGE 
IS IT A IMMEDIATE ? 
BRANCH IF NOT 



sGO PRINT THE REST OF THE MESSAGE 
sIS IT A UNLOAD ? 
{BRANCH IF NOT 
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PRINTS 


^RR04 R5 TKUNIT(R4) 






000004 


nov 


TKLMITrR4) -fSP) 




010546 




nov 


R5, (SP) 


014700 


012746 


016213 


flOV 


•ERR04. -(SP) 


014704 


012746 


000003 


MOV 


«3, -(SP) 


014710 


010600 




MOV 


SP.RO 


014712 


104414 




TRAP 


CIPNTB 


014714 


062706 


000010 


ADD 


#10, SP 


2537 014720 


000413 




BR 


301 (GO PRINT THE REST Of THE NESSAGE 


253S 014722 




251 : 


PRINTB 


«ERR05 R5.TKUNIT(R4) 


014722 


016446 


000004 


MOV 


TKUNIT(R4) , -(SP) 


014726 


010546 




MOV 


R5. -(SP) 


014730 


012746 


016272 


MOV 


«ERROS. -(S^^*) 


014734 


012746 


000003 


MOV 


♦3. -(SP) 


014740 


010600 




MOV 


SP.RO 


014742 


104414 




TRAP 


CIPNTB 


014744 


062706 


000010 


ADD 


«10,SP 


2539 0147S0 




30t : 


PRINTB 


•ERR06 , P ASCNT . PATSAV ( R4 ) 


014750 


016446 


000024 


MOV 


PATSAV(R4). -(SP) 


014754 


C13746 


003700 


MOV 


PASCNT. -(SP) 


014760 


012746 


016351 


MOV 


«ERR06. -(SP) 


014764 


012746 


000003 


MOV 


«3.-(SP) 


014770 


010600 




MOV 


SP.RO 


014772 


104414 




TRAP 


CIPNTB 


014774 


062706 


000010 


ADO 


«10.SP 


2540 015000 


122763 


000005 000010 


CMPB 


«fM.TPE.L.FMT(R3) :IS IT A TAPE TRANSFER ERROR LOG 


2541 






BEQ 


35$ sYtS. GO PRINT IT 


2542 015006 


000137 


015416 


JMP 


PKPRNT :N0. PRINT THE ERROR LOG PACKET 


2543 015012 




35«: 


PRINTB 


4CRR07. BYTES ; PRINT THE BYTE COUNT 


015012 


013746 


003574 


MOV 


BYTES, -(SP) 


015016 


012746 


016421 


nov 


•ERR07.-(SP) 


015022 


012746 


000002 


MOV 


«2. -(SP) 


015026 


010600 




NOV 


SP.RO 


015030 


104414 




TRAP 


CtPNTB 


015032 


062706 


000006 


ADO 


«6.SP 


2544 015036 






PRINTB 


«ERR08 . OBOFFH( R2 ) . OBOFFL ( R2 ) 


015336 


016246 


000004 


MOV 


0B0FFL(R2). -(SP) 


015042 


016246 


000006 


MOV 


0B0FFH(R2).-(SP) 


015046 


012746 


016461 


MOV 


«ERROa.-(SP) 


015052 


012746 


000003 


MOV 


*3.-(SPt 


015056 


010600 




MOV 


SP.RO 


015060 


104414 




TRAP 


CIPNTB 


015062 


062706 


000010 


ADO 


*10.SP 


2545 015066 




PRINTX 


«£RL00.L.PSTN*2(R3).L.PSTN(R3) 


015066 


016346 


000044 


MOV 


L.PSTN(R3).-(SP) 


015072 


016346 


000046 


NOV 


L.PSTN*2(R3).-(SP) 


015076 


012746 


017137 


MOV 


«ERLOO.-(SP) 


015102 


012746 


000003 


NOV 


♦3.-(SP) 


015106 


010600 




NOV 


SP.RO 


015110 


104415 




TRAP 


CIPNTX 


015112 


062706 


000010 


ADO 


♦10. SP 


2546 015116 






PRINTX 


•ERL01,<B.L.TRK(R3)>.<B.L.LVL(R3)>.<B.L.RTRY(R3)> 


015116 


005046 




CLR 


(SP) 


015120 


156316 


000043 


BISB 


L.RTRY(R3).(SP) 


015124 


005046 




CLR 


(SP) 


015126 


156316 


000042 


BISB 


L.LVL(R3).(SP) 


015132 


005046 




CLR 


-(SP) 
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015134 


156316 


OOOOSS 




015140 


012746 


017174 




015144 


012746 


000004 




015150 


010600 






015152 


104415 






015154 


062706 


000012 


2547 


015160 








015160 


016346 


0000S6 




015164 


005046 






015166 


156316 


000060 




015172 


012746 


017272 




015176 


012746 


000003 




015202 


010600 






015204 


104415 






015206 


062706 


000010 


2548 


015212 
015212 


005046 






015214 


156316 


000054 




015220 


005046 






015222 


156316 


000053 




015226 


012746 


017356 




015232 


012746 


000003 




015236 


010600 






015240 


104415 






015242 


062706 


000010 


2549 


015246 
015246 


005046 






015250 


156316 


000052 




015254 


016346 


000064 




015260 


012746 


017445 




015264 


012746 


000003 




015270 


010600 






015272 


104415 






015274 


062706 


000010 


2550 


015300 
015300 


005046 






015302 


156316 


000062 




015306 


005046 






015310 


156316 


000061 




015314 


012746 


017531 




015320 


012746 


000003 




015324 


010600 






015326 


104415 






015330 


062706 


000010 


2551 


015334 








015334 


016346 


000066 




015340 


005046 






015342 


156316 


000063 




015346 


012746 


0x7620 




015352 


012746 


000003 




015356 


010600 






015360 


104415 






015362 


062706 


000010 


2552 


015366 








015366 


016346 


000070 




015572 


012746 


017704 




015376 


012746 


000002 
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SEQ 62 



BISB L.TRK(R3).(SP) 

MOV ♦eRLOl.-(SP) 

MOV W.-CSP) 

MOV SP.RO 

TRAP CIPNTX 

ADO •12. SP 

PRINTX #ERL02. <B.L .LBLK(R3)> .L .P8LK(R3) 

MOV L.PBLK(R3),-(SP) 

CLR -fSP) 

BISB L.LBLK(R3).(SP) 

MOV #ERL02.-(SP) 

MOV #3.-CSP) 

MOV SP.RO 

TRAP CIPNTX 

ADD •lO.SP 

PRINTX «ERL03 . < B . L . DRVCC R3 ) > . <B . L . DFLGC R3 ) > 

CLR -(SP) 

BISB L. DFLGC R3).(SP) 

CLR -CSP) 

BISB L.DRVC(R3).(SP) 

MOV «ERL03.-(SP) 

MOV *3.-(SP) 

MOV SP.RO 

TRAP C»PNTX 

ADD no.sp 

PRINT X «ERL04 , L . DRVSC R3 ) , < B . L . STSC R3 ) > 

CLR -CSP) 

BISB L.STSCR3).(SP) 

MOV L.DRVS(R3).-(SP) 

MOV «ERL04.-(SP) 

MOV W.-CSP) 

MOV SP.RO 

TRAP CIPNTX 

ADD «10,SP 

PRINTX #eRL05 . <B .L , CNTOCRS )> . <B . L . CNT1(R3) > 

CLR -CSP) 

BISB L.CNT1(R3).(SP) 

CLR -fSP) 

BISB L.CNT0(R3).(SP) 

MOV •ERL05.-(SP) 

MOV *3.-(SP) 

MOV SP.RO 

TRAP CIPNTX 

ADO •lO.SP 

PRINTX «ERL06 . <B . L . CNT2(R3 ) > . L . RUST ( R3 ) 

MOV L.RUST(R3),-(SP) 

CLR -(SP) 

BISB L.CNT2(R3),(SP) 

MOV •eRL06.-(SP) 

MOV M.-CSP) 

MOV SP.RO 

TRAP CIPNTX 

ADD •lO.SP 

PRINTX ♦eRL0V.L.0PFL(R3) 

MOV L,0PFL(R3).-(SP) 

MOV «ERL07,-CSP) 

MOV •2.-(SP) 



GLOBAL AREAS KACRO Y05.02 
GLOBAL CKROR REPORT SECTION 
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SEQ 63 





015402 


010600 






015404 


104415 






015406 


062706 


000006 


2553 


015412 


000137 


015610 


2554 


015416 








015416 


016246 


000004 




015422 


016246 


000006 




015426 


012746 


016461 




015432 


012746 


000003 




015436 


010600 






015440 


104414 






015442 


062706 


000010 


2555 


015446 








015446 


012746 


020524 




015452 


012746 


000001 




015456 


010600 


J 




015460 


104417 






015462 


062706 


000004 


2556 


015466 






015466 


C12746 


017734 




015472 


012746 


000001 




015476 


010600 






015500 


104415 






015502 


062706 


000004 


2557 


015506 








015506 


012746 


016637 




015512 


012746 


000001 




015516 


010600 






015520 


104415 






015522 


06270^ 


000004 


2558 


015526 


010305 




2559 


015530 


010301 




2560 


015532 


062701 


000002 


2561 


01SSS6 


005763 


177774 


2562 


015542 


100422 




2563 


015544 






015544 
015546 


011546 
011146 






015550 


012746 


016675 




015554 


012746 


000003 




015560 


010600 






015562 


104415 






015564 


062706 


000010 


2564 


015570 


062701 


000004 


2565 


015574 


062705 


000004 


2566 


015600 


162763 


000004 


2567 


015606 


001353 




2566 


015610 








015610 


012746 


0^0524 




015614 


012746 


000001 




015620 


010600 






015622 


104417 






015624 


062706 


000004 


2569 


01S6S0 


105737 


002216 


2570 


0156S4 


001431 




2571 


01S6S6 
015636 


005046 





MOV 
TRAP 
ADO 
JHP 

PKPRNT: PRINTS 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADO 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

MOV 

ADO 

1»: TST 
BMI 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

ADO 

ADO 

177774 SUB 

bne 

msgext: printf 

MOV 

MOV 

MOV 

TRAP 

ADO 

TSTB 

BEQ 

PRINTF 

CLR 



SP.RO 

C«PNTX 

♦6.SP 

MSGEXT 

•ERR08.0B0FFH(R2 

0B0FFL(R2).-CSP) 

0B0FFH(R2).-(SP) 

♦ERROB.-CSP) 

♦3.-(SP) 

SP.RO 

CIPNTB 

•10. SP 

•LINE 

♦LINE.-(SP) 

♦l.-(SP) 

SP.RO 

C»PNTF 

•4.SP 

•ERL08 

•ERL08. -(SP) 

•l.-(SP) 

SP.RO 

C»PNTX 

•4.SP 

•eRR12 

•ERR12.-(SP) 

•l.-(SP) 

SP.RO 

CIPNTX 

♦4.SP 

R3.R5 

R3.R1 

•2.R1 

MSGLENCR3) 

MSGEXT 

•ERR13.(R1).(R5) 

(R5).-(SP) 

CRl).-(SP) 

•ERR13.-(SP) 

♦3.-(SP) 

SP.RO 

CIPNTX 

♦10. SP 

•4.R1 

•4.RS 

•4.MSGLEN(R3) 
U 

•LINE 

•LINE.-CSP) 

•l.-(SP) 

SP.RO 

CIPNTF 

•4.SP 

CLOCK 

II 

•TiriE.<B.H0URS>. 

-(SP) 



»GET OUT 
).0B0FFL(R2) 



GET POINTER TO RESPONSE PACKET 

AND A SECOND COPY 

Rl POINT TO SECOND WORD OF PACKET 

ARE UE STILL POSITIVE ? 

NO. GET OUT 



GET THE NEXT WORD 
AND AGAIN 

ADJUST MESSAGE LENGTH OOUN 2 WORDS 
KEEP PRINTING TILL ALL DONE 



:IS THE CLOCK ENABLED 
;N0. THEN CAN'T PRINT TIME 
<B . MINUTE > . <B . SECOND > 



GLOBAt AREAS MACRO r05.02 
CwOHAL ERROR REPORT SECTION 
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2572 



2573 
2574 



2575 
2576 
2577 
2578 
2579 
25»0 
2561 
2562 
259S 
2564 
2565 
2566 
2567 
2566 
2569 
2590 
2591 

2594 
2595 
2596 
2597 
2596 
2599 
2600 
2601 
2602 
260S 
2604 
2605 
2606 
2607 
2606 
2609 
2610 
2611 



015640 
015644 
015646 
015652 
015654 
015M0 
015664 
015670 
015672 
015674 
015700 
015700 
015704 
015710 
015712 
015714 
015720 
015724 
015724 
015726 

015750 
016000 
016056 
016135 
016213 
016272 
016351 
016421 
016461 
016516 
016557 
016611 
016637 
016675 
016726 
016754 
017024 
017051 
017110 
017137 
017174 
017272 
017356 
017445 
017531 
017620 
017704 
0177S4 
017763 
020037 
020122 
020177 
020253 
020S07 
020344 
020425 



153716 
005046 
153716 
005046 
153716 
012746 
012746 
010600 
104417 
062706 

012746 
012746 
010600 
104417 
062706 



000167 
C02706 

045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 



002221 

002220 

002217 
020037 
000004 

000012 

020524 
000001 

000004 



101 
101 
101 
101 
101 
101 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
123 
101 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
101 
116 
116 
116 
116 



1»: 



103 ERROO 

103 ERROl 

103 ERR02 

103 ERR03 

103 ERR04 

103 ERROS 

045 ERR06 

045 ERR07 

045 ERROe 

045 ERR09 

045 ERR 10 

045 ERR 11 

045 ERR 12 

045 EIM13 

045 ERR14 

045 ERRIS 

061 ERR16 

124 ERftl7 

045 ERR16 

045 ERLOO 

045 ERLOl 

045 ERL02 

045 ERL03 

045 ERt.04 

045 ERLOS 

045 ERL06 

045 ERL07 

045 ERLOa 

045 NCLK: 

045 TINE: 

045 DAY:: 

102 COUNTS 

045 UNTEOT 

045 UNTLOT 

045 DUMP:: 

045 OUtiPl: 



sise 

CLR 

Bise 

CLR 

Bise 

MOV 

MOV 

MOV 

TRAP 

AOO 

PRINTF 

NOV 

MOV 

MOV 

TRAP 

ADD 

POP 

EXIT 

.UORO 

.WORD 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.r-llZ 
•jCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



27 4 



SECOND. (SP) 
-CSP) 

MINUTE. CSP) 
-CSP) 

HOURS. CSP) 
♦TIME. -CSP) 
♦4. -CSP) 
SP.RO 
CIPKTF 
♦12. SP 
♦LINE 

♦LINE. -CSP) 

♦l.-CSP) 

SP.RO 

CIPNTF 

♦4.5P 

<R5.R1> 

MSG 

J»JNP 

L10003-2-. 



EQ 64 



TtfACOHNANO 
7«ACONNAN0 
7MC0NNAN0 
7MC0NNAN0 
7«AC0NNAND 
7i(AC0nHAN0 
7«NKAPASS: 



tfT«S3MT/MSCP UNIT: il03M(0)7 
«TM-REV«S3MT/NSCP UNIT: il03#A(0)7 
KTKA-LEOTKSStfAT/NSCP UNIT: KOStfACO)? 
«T«A-IMNriS3«AT/MSCP UNIT: MSKACO)? 
«T«A-UNL0tfS3«AT/MSCP UNIT: «03M(0}7 
tfT«A-URPRtfS3#AT/MSCP UNIT: KOSMCO)? 
tf03#ArO) DATA PAT: «02«AC0)7 
?ltNl(ARECOR0 BYTE COUNT: i(06«AC0)7 
7«NitA0ejECT CNT : <t06«06«ACC)7 
?«N«A0RIVE ERROR CODE : tfTtfTMCH)? 
?«NMSA CONTENTS: K06tfAC0)? 
TKNMitfARESPONSE PACKET? 
?ifNKSS«AHIGH U0m)KS6itAL0U WORD? 
7«(KS5K06MC 0 )«S6M6«A( 0 ) 7 
?il|iMS2KABYTEKS10MDATA7 

?KNllS2«AAOOMSStfAEXPECTE0<(S3«ARECEIVE0«N7 
?«Sli>06«SSMS«S6«0SilN7 
71IAT0TAL BYTES IN ERROR : «D4«N7 
7MMRETRIES: «O2tfAC0)7 
TUNMTAP OBJ CNT: i(06l(06«AC0)7 
?«NKATRK NUN: «02itAC0) LEVEL: M2«AC0} 
?«(NtfALOG BLK NUN: KOStfACO) PHYS BLK NUN 
7«NKADRV CODE: tf03#A(0) DRV FL6S: 
7«NM0RV STATE: it06tfA(0) INTERN STATUS: 
*03llA(0) TAP CNT 1: 
miSKACO) RO/WR STATE: 

. _ tfa6«K0)? 

TMMNMERfKIR LOG PAO(ET7 
7imM*\*/*\*/* CLOCK NOT PRESENT *\*/*\*/*M7 
?«NM*\*/*N*/* TINE «Z2«A:«Z2M:tfZ2tfA *\*/«\*/*MMN? 
7«MI*\*/*\*/* START OF DAY «02KA *S*/*\*/*«N7 
TKABYTE COUNT: «DtfA(D} FILE SIZE: tfDM(D)Mi? 
?«NtfAUNIT: «01<M IS AT EOT«N? 
TMtAUNIT: MIM IS AT LEOTM? 

7liMMAl:il06M R2:ll06M RS:ll06M R4:tf06i(A R5:«06«N? 
TlMMWABYTES X-FEfMED: «DStfA(D)«l? 



TlfMMTAP CNT 0 
TUNMTAP CNT 2 
TUNMOPER FLGS 



RETRIES: «D2ilACD)7 
«D6«AC0}7 

|(03#AC0)7 
|(03#AC0)7 

M)3«A(0)? 
tf06«AC0)7 



UcjeAL «»E*S fMCRO r05.02 
r>LOeAL CRR(J«t R€POffT SCCTXON 



nenday 26-Auo-8S 09:54 P 



2612 020466 
2<>13 020524 

2614 020527 

2615 020562 

2616 020610 
261^ 

2616 020656 
020636 
020636 



045 
045 
045 
045 
045 



104423 



066 0UPP2;: 
000 LIIC: : 
045 BYPASS : 
045 TSTGCR: 
045 TSTPC:: 
.EVEN 

L10003: 



.*SCIZ 
.ASCIZ 
:. ASCII 
:.ASCIZ 
.ASCIZ 

EMDriSG 

TRAP 



27-5 



?«06#S3«06«S5ii06«S5«06«SS«06«N 7 

/«NM TEST «Z3«A SYPASSEOiHii/ 
/UNtfA TESTING IN GCMH/ 
/««IA TESTING IN PE«N/ 



CtnSG 



SEQ 65 



GLOBAL AREAS MACRO Y05. 02 
GLOBAL ERROR REPORT SECTION 

2620 
2621 

2622 020640 
020640 

2623 020640 000000 

2624 020642 177777 

2625 020644 177777 

2626 020646 
2627 
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;PR0'' 



riON TABLE 

B "PROT 

' . UORO O 
.UORO -1 
.WORD 1 
ENDPROT 



SkQ 66 



GLOBAL AREAS 
CLOCK HANDLER 

2629 
2630 
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.SBTTL CLOCK HANDLER 
BGNSRV NOCLK 



2631 


020646 
020646 






2632 








2633 


020646 


105037 


002216 


2634 


020652 


052737 


000002 


2635 


020660 








020660 


012746 


017763 




020664 


012746 


000001 




020670 


010600 






020672 


104417 






020674 


062706 


000004 


2636 








2637 


020700 
020700 
020700 


000002 




2638 








2639 


020702 
020702 






2640 








2641 


020702 


105237 


002222 


2642 


020706 


122737 


000074 


2643 


020714 


001051 




2644 


020716 


105037 


002222 


2645 


020722 


105237 


002221 


2646 


020726 


005237 


010742 


2647 


020732 


122737 


000074 


2648 


020740 


001037 




2649 


020742 


105037 


002221 


2650 


020746 


105237 


002220 


2651 


020752 


122737 


000074 


2652 


020760 


001027 




2653 


020762 


105037 


002220 


2654 


020766 


105237 


002217 


2655 


020772 


122737 


000030 


2656 


021000 


001017 




2657 


021002 


105037 


2658 


021006 


105237 


003750 


2659 


021012 






021012 


005046 






021014 


153716 


003750 




021020 


012746 


020122 




021024 


012746 


000002 




021030 


010600 






021032 


104417 






021034 


062706 


000006 


2660 


021040 






2661 


021040 
021040 
021040 


000002 





NOCLK : 



003674 



CLRB 
BIS 



PRINTF WCLK 



L 10005: 



KUHOL: 



MOV 
MOV 
MOV 
TRAP 
ADO 

ENOSRV 



002222 



002221 



002220 



002217 



HOLEXT : 
L 10006: 



INCB 

CMPB 

BNE 

CLRB 

INCB 

INC 

CMPB 

BNE 

CLRB 

INCB 

CMPB 

BNE 

CLRB 

INCB 

CMPB 

BNE 

CLRB 

INCB 

PRINTF 

CLR 

BISB 

MOV 

MOV 

MOV 

TRAP 

ADO 

ENOSRV 



CLOCK 

*NCLKFL.PCFLAG 



•NCLK. (SP) 
•l.-CSP) 
SP.RO 
CIPNTF 
♦4.SP 



RTI 

BGNSRV KWHDL 



SUBSEC 

«60. .SUBSEC 

HOLEXT 

SUBSEC 

SECOND 

TIMER 

*60. .SECOND 

HDLEXT 

SECOND 

MINUTE 

•60. .MINUTE 

HOLEXT 

MINUTE 

HOURS 

#24. .HOURS 

HDLEXT 

HOURS 

DAYS 

#DAY.<B.DAYS> 

-(SP) 

DAYS.(SP) 

WAY. -CSP) 

•2.-(SP) 

SP.RO 

C»PNTF 

»6.SP 



RTI 



SEQ 67 



CLEAR THE CLOCK ENABLED BIT 
SET UP NO CLOCK PRESENT FLAG 
PRINT MESSAGE 



INCREMENT THE SUB SECOND COUNTER 
IS IT A SECOND YET ? 
NO. GET OUT 

CLEAR THE SUBSEC COUNTER 
INCREMNET THE SECOND? COUNTER 
INCREMENT THE COMMAND TIMER 
IS IT A MINUTE YET ? 
NO. GET OUT 

CLEAR THE SECOND COUNTER 
INCREMENT THE MINUTE COUNTER 
IS IT AN HOUR YET ? 
NO, GET OUT 

CLEAR THE MINUTE COUNTER 
INCREMENT THE HOUR COUNTER 
IS IT A DAY YET ? 
NO. GET OUT 

CLEAR THE HOURS COUNTER 
INCREMENT THE DAY COUNT 
PRINT END or DAY STATMENT 



GLOBAL AREAS 
SCHEDULER 



2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
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.SBTTL SCHEDULER 



SEQ 



2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 

2704 
2705 
2706 



021042 
021042 
021046 
021050 
021054 
021060 
021066 
021070 
021076 
021100 
021100 
021104 
021110 
021112 
021114 
021120 
021126 
021130 
021136 

021140 
021146 
021152 
021160 
021164 
021170 
021176 

021200 
021204 
021206 
021212 
021216 
021222 
021222 
021224 
021226 
021230 



SCHEDULER 

Called by 
Calls to 
Outputs 

Register Inputs: 
Registers Used : 



SCHEO: 



Test N 
CMMDSQ 

EOT Flag. Dropped Flag 

R5 (Pointer to command active in table - not used here) 
R4 (Pointer to LUN Block for use by called subs) 



010537 


003744 






MOV 


R5,CMDSA\' 


SAVE THE CURRENT COMMAND 


005001 








CLR 


Rl 


SET Rl TO FISr UNIT 


005037 


002074 






CLR 


L»LUN 


SET L»LUN TO FIRST UNIT 


012704 


002322 






MOV 


4^LUN0 . R4 


SET R4 TO THE FIRST LUN BLOCK 


022737 


000005 


002114 




CMP 


♦3, LITEST 


ARE UE IN TEST 3 ? 


001014 








dNE 


1* 


YES. PRINT LiNErEEO 


122765 


A AAA t A 

000020 


AAAA A A 

000000 




CMPB 


9Uh , CMO( RS } 


•S If A WRITE LUnnAND 7 


001010 








BNE 


11 


k.m T Al IT 

NO, GET OUT 










PRINTF 


M_INE 


PRINT A LINE FEED 


012746 


020524 






MOV 


vLINE , -( SP ; 




012746 


A AAAA a 

000001 






MOV 


•1 t -(SP ) 




0x0600 








MOV 


SP.RO 












TRAP 


r •puTr 
c ?"n 1 r 




062706 


000004 






ADO 


*4.SP 




032761 


000001 


003526 


1«: 


BIT 


*AVB.0RINUS(R1) 


SEE IF DRIVE IS PRESENT AND AVAILABLE 


001424 








BEQ 


2« 


GET THE NEXT DRIVE IF IT ISN'T 


032761 


000004 


003526 




BIT 


«EQT.DRINUS(R1) 


[CHECK IF THE DRIVE IS AT EOT 


001020 








BNE 


2» 


GET NEXT DRIVE IF IT IS 


012764 


000377 


000010 




MOV 


*377,SLTUSE(R4) 


SET ALL RESPONSE SLOTS TQ THE PORT 


004737 


026476 






JSR 


PC.PRTCLR 


GO DO IT 


112737 


000004 


010755 




MOVB 


*4.CRDLIM 


CREDITS START AT 4 FOR NEU LUN 


004737 


021366 






JSR 


PC. CMMDSQ 


.GO 00 THE TEST ON THIS DRIVE 


004737 


021232 






JSR 


PC. RETRY 


i CHECK IF WE'RE DOING RETRIES 


032764 


000200 


000026 




BIT 


<»ftETFLG.LUNFLG(R4) 


ARE UE DOING RETRIES ? 


001350 








BNE 


It 


BRANCH IF SO 


022701 


000006 




2»: 


CMP 


*6. .Rl 


HAVE UE DONE ALL DRIVES ? 


001410 








BEQ 


31 


GET OUT 


062701 


000002 






ADO 


♦UNTSTP.Rl 


GET NEXT UNIT 


062704 


000224 






ADO 


♦LUNSTP.R4 


SET UP THE NEXT LUN BLOCK 


005237 


002074 






INC 


L»LUN 


jGET NEXT UNIT 










BREAK 






104422 








TRAP 


CIBRK 




000735 








BR 


1« 


iGO DO THE NEXT ONE 


000240 






3t: 


NOP 


;TEMP 




000207 








RTS 


PC 


; RETURN 



3L0eAL AREAS 
RETRY 



2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
271S 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
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•SBTTL RETRY 



SEQ 69 



021232 
021232 
021236 
021240 
021246 
021254 
021256 
021264 
021266 
021272 
021274 

021276 
021302 
021304 

021306 
021312 
021314 

021316 
021322 
021324 
021332 
021334 
021342 
021344 
021350 

021352 
021356 

021360 
021364 



Iretry 

Called by : SCHEDULER 

Inputs :MRETRY. ARETRY. CMOSAV 

Outputs : Retry flag 

Register output :R5 (Pointer to command active in table) 
(Registers Used :R4 (Pointer to LUN block) 



RETRY : 



005737 


003560 






TST 


MRETRY 


ARE UE DOING MANUAL RETRIES 


001427 








BEQ 


20 « 


BRANCH IF NOT 




000900 


000096 




BIS 


•RETFLG.LUNFLGCR4) 


SET RETRY FLAG 


032737 


000001 


005560 




BIT 


•1. MRETRY 


TIME FOR SPACE RECORD REVERSE ? 


001014 








BNE 


10* 


BRANCH IF NOT 


022764 


000001 

www 


000034 




CMP 


♦1.0BJFDL(R4) 


IS THIS THE FIRST OBJECT ON TAPE 


C01004 








BNE 


51 


NO. 00 REPOSITION REVERSE 


012705 


042340 






MOV 


«T1REW.R5 


YES. SET UP TO DO A REMIND 


000240 








NOP 


sTEMP 




000433 








BR 


100* 




012705 


042616 




5«: 


MOV 


«RTSPR1.R5 :SET UP TO BACK UP ONE RECORD 


000240 








NOP 


tTEMP 




000427 








BR 


1001 




013705 


003744 




101: 


MOV 


CMOSAV. RS 


RESTORE FAILING COMMAND 


000240 








NOP 


iTEMP 




000423 








BR 


loot 




005737 


003564 




20«: 


TST 


ARETR* 


ARE UE DOING AUTO RETRIES 


001420 








BEQ 


100* 


BRANCH IF NOT 


032737 


000001 


003564 




BIT 


•1. ARETRY 


[TIME FOR SPACE RECORD REVERSE ? 


001012 








BNE 


30* 


; BRANCH IF NOT 


022764 


000001 


000034 




CMP 


«1.0ejF0L(R4) 


ilS THIS THE FIRST OBJECT ON TAPE 


001003 








BNE 


25* 


iNO. DO REPOSITION REVERSE 


012705 


042340 






MOV 


«T1REU.R5 


iYES. SET UP TO 00 A REWIND 


000405 








BR 


100$ 




012705 


042616 




25«: 


MOV 


«RTSPR1.R5 


■SET UP TO BACK UP ONE RECORD 


000402 








BR 


100* 




013705 


003744 




301: 


MOV 


CMOSAV. R5 


! REST ORE FAILING COMMAND 


000207 






100 «: 


RTS 


PC 


i RETURN 



GLOBAL AREAS MACRO Y05.02 
COHMANO SEQUENCER 

2755 
2756 
2757 
2758 
2759 
2760 
i'761 
2762 
2763 
2764 
2765 
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.SBTTL COmANO SEQUENCER 



SEQ 70 



COMMAND SEQUENCER 

Called by 
Calls to 
Register Inputs: 



SCHEO 

CMDBLO. QCMO. CLSDRV. RSPHOR, UN JAM 
R5 - POINTER TO COMMAND ACTIVE IN TABLE 
R4 POINTER TO LUN BLOCK 



2766 


021366 








CMMDSQ: 






2767 


021366 










PUSH 


<R1.R5> 




noi x&it 


oi m Aik 










D1 -f^P'i 




veld t\l 


UlVJ^O 








Mnu 

nu w 






A31 X73 


nAA7X7 

t ^ t 


09 1 TtkA 
Ucl fO^ 








pr TMnRi n 


97IIO 


n91 X7* 

ucio 'O 


0497X7 


OOOlOO 


OOXI>7A 




RTP 


arMTinNF pm At; 






ftl X7X7 


OOX^7l« 






MOV 


TTPB^ TMnPNT 
A 1 wno • wriuwi^ I 


3771 


A91A1 9 


Ol X7X7 
w A^ r ^ r 


OOXS7#> 


OOXSAO 




MOV 


TTFRS R^PTNT 
A 1 t n wi¥ 1 


9775 


091 


C197S7 


177777 


0107X4 

WAV ■ 




MOV 


A.i CMSTSV 


377X 
















977A 


A91496 


0S97S7 


wvvw^v 


00S674 


Si • 


BIT 


AGCSRFL PCFLAG 














ONE 


15 < 


977* 




0057S7 








TST 


CMDCNT 


9777 

miff 












BNE 


101 


97711 






OOOlOO 

WW AW 






BIS 


ACMOONE PCFLAG 


2779 


021452 


000414 








BR 


15t 


2780 
















97111 


n91 ASA 

wc 1^ 


OOA7X7 


VC<J 






JSR 

won 


PC QCMO 


97A9 




032737 


000002 


003674 




BIT 


•NCLKFL PCFLAG 




091 A** 










BNE 


131 


97M 


091 A7n 


OOS057 








CLR 


TIMER 


C f O J 


091 A7A 










BR 


151 


C r OO 


n91A7l> 
WK X^ r o 


Ol 97X7 


V A WW 






MOV 


410000 TIM^R 


2787 
2788 


021504 








151: 


BREAK 




021504 


104422 








TRAP 


CIBRK 


2789 


021506 


004737 


023616 






JSR 


PC. CLSDRV 


2790 


021512 


032737 


000002 


003674 




BIT 


#NCLKFL. PCFLAG 


2791 


021520 


001007 








BNE 


18» 


2792 


021522 


022737 


000171 


010742 




CMP 


♦121. .TIMER 


2793 


021530 


101012 








BHI 


20) 


2794 


021532 


005037 


010742 






CLR 


TIMER 


2795 


021536 


000414 








BR 


25t 


2796 














TIMER 


2797 


021540 


005337 


010742 




18<: 


DEC 


2798 


021544 


001004 








Bt^ 


201 


8799 


021546 


012737 


010000 


010742 




MOV 


«10000. TIMER 


2800 


021554 


000405 








BR 


25 1 


2801 
2802 


021556 


022737 


020000 


010732 


20$: 


CMP 


♦lOICRO.IOSTAT 


2803 


021564 


001747 








BEQ 


151 


2804 


021566 


000425 








BR 


35 » 


2805 
















2806 


021570 


032737 


000040 


003674 


25t: 


BIT 


♦GCSRFL. PCFLAG 


2807 


021576 


001412 








BEQ 


30 » 


2808 


021600 


042737 


000040 


003674 




6IC 


♦GCSRFL. PCFLAG 



iSAVE Rl AND R5 
;:PUSH Rl ON STACK 
i;PUSH R5 ON STACK 

:G0 BUILD THE COmiANO 

:GET SET TO START ISSUING COMMANDS 

:GET THE COMMAND COUNT 

;GET THE RESPONSE COUNT 

: RESET THE GCS PROGRESS COUNT 



STILL LOOKING FOR A GCS RESPONSE 7 
DON'T QUEUE UP THE NEXT COMMAND 
00 UE STILL HAVE COMMANDS TO ISSUE 
YES . KEEP GOING. 
SET ''HE ALL COMMANDS ISSUED FLAG 



GO QUEUE UP THE NEXT COMMAND 

IS A CLOCK PRESENT ? 

NO CLOCK. START REGULAR TIMER 

SET TIMER TO 0 

GO ISSUE COMMAND 

SET UP THE TIMER 



CALL THE CLASS DRIVER 

IS A CLOCK PRESENT ? 

NO CLOCK. START REGULAR TIMER 

HAVE UE TIMED OUT ? 
(NO. KEEP GOING 
sSET TIMER TO 0 
; YES. SET UP FOR TIME OUT 

DECREMENT THE TIMER 
BRANCH IF NOT 0 
RESET THE TIMER 
sSET TIME OUT ERROR 

INSUF'^ICIENT CREDITS ? 
YES. TRY AGAIN 
YES. CHECK IT OUT 

s WAITING FOR A GCS RESPONSE ? 

:N0. SET UP TO DO A GCS 

: CLEAR THE GCS RESPONSE FLAG 
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conriANO 


SEQUENCER 






2809 


021606 


012737 


000004 


010732 


2810 


021614 


004737 


034022 




2811 


021620 


000240 






2812 


021622 


000407 






2813 










2814 


021624 


052737 


000020 


Ov9o7* 


2815 


021632 


052737 




009o74 


2816 


021640 


000721 






2817 
2818 


021642 


0227S7 


QoQQw 


II10732 


7819 


021650 


001406 






2820 


021652 


032737 




OOOO/* 


2021 


021660 


001002 






2822 


021662 


005337 






2829 


021666 


022737 


AAA AAA 




2824 


021674 


001414 






2825 


021676 


004737 


AO^^A^ 

1 fQo 




2B20 










282 ' 


021702 


032737 




A1 ATT^ 
VIV 1 02 


2828 


021710 


C0127S 






2827 


021712 


022737 


AAA A A3 




28 SO 


021720 


001002 






2091 


021722 


004737 






code 










2000 


021726 


032761 


AAAAAi 




2094 


021734 


001407 








021736 


005737 


003540 




2836 


021742 


001231 






2837 


021744 


032737 


000040 


003674 


2636 


021752 


001225 






2839 










2640 


021754 










021754 


012605 








021756 


012601 






2S41 


021760 


000240 






2642 


021762 


000207 







50$; 



nov 

JSP 
NOP 
BR 

BIS 
BIS 
BR 

CriP 
BEQ 
BIT 
BNE 
DEC 
CMP 
BEQ 
JSR 

BIT 
BNE 
CtIP 
BNE 

JSR 

BIT 
BEQ 
TST 
WE 
BIT 
BNE 

POP 
MOV 
MOV 
NOP 
RTS 
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SEQ 71 



♦lOTIME.IOSTAT 
PC.CORDMP 

35 ♦ 

♦GCSCFL.PCFLAG 
«GCSRFL.PCFLAG 
15« 

»ERRLOG ! lOICRD . lOST AT 
40 < 

♦CMDONE ! GCSRFL . PCFLAG 
401 

CMOCNT 

♦lONORM.IOSTAT 
45$ 

PC . RSPHOL 

♦lOICRD.IOSTAT 
15 » 

*SEREXC.RESPON 
45 ( 

PC.UNJAM 

«AVB.DRINUS(R1) 
50 » 

RSPCNT 
5$ 

•GCSRFL. PCFLAG 
5* 

<R5.R1> 

(SP)».R5 !;POP 
(SP)».R1 ::PDP 
;TEMP 
PC 



iSET UP TIME OUT ERROR 
iOO A VARIABLES DUMP 

iGO REPORT ERROR AND DROP UNIT 

;SET THE GCS COMMAND FLAG 
:SET THE GCS RESPONSE FLAG 
I GO ISSUE THE GCS COMMAND 

:0I0 WE GET ERROR LOG PACKET ONLY? 

sYES - SO BRANCH AROUND NEXT INSTRUCTION 

:HAVE ALL COMMANDS BEEN ISSUED 7 

;YES. DON'T LET CMDCNT GO NEGATIVE 

: DECREMENT THE COMMAND COUNT 

sUAS IT A NORMAL COMPLETION 7 

iYES . GET OUT 

sNO. LETS SEE UHAT IT WAS 

sUERE UE IN RSPHDL FOR ERROR LOG ONLY? 

:YES • GO TRY TO POST SAME COMMAND. 

:UAS IT A SERIOUS EXCEPTION ? 

:N0. CONTINUE 

sYES. GO UN JAM THE QUEUES 

iHAS THE DRIVE BEEN DROPPED ? 
•YES, EXIT 

IhAVE UE GOTTEN ALL THE RESPONSE BACK ? 
jNO. GO BACK TO THE TOP 
I STILL LOOKING FOR A GCS RESPONSE 7 
:YES. DON'T GET OUT YET 

{RESTORE REGISTERS Rl AND R5 
STACK INTO R5 
STACK INTO Rl 

: RETURN 



GLOBAL AREAS MACRO Y0S.02 
COWIANO BUILDER 



2044 

2845 
2a4b 
2947 
2948 
2949 
2850 
2951 
2852 

2954 

2855 
2956 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2674 
2975 
2976 
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seO 72 



.S8TTL COnnAND BUILDER 



iCOnWAND BUILDER 

! Called by 

.•Calls to 

: Register Inputs: 

s 

{Register Output: 

• 

> Registers Used : 



CMMOSQ 
BYTCNT . 



SELDAT. SELREC 



R5 - pointer to test's coMMsnd table 

R4 - pointer to LUN BLOCK 

R3 - ncM pointer for comand ring (set to start of ring) 
R2 old pointer for command ring (set to start of ring) 
R3 Pointer to duawiy pacV«t before setting to cotMiand r-ng 



2977 
2979 
2879 
2890 
2991 
2992 
2993 



021764 








CnOBLD: 


• 






021764 


032764 


000200 


000026 




BIT 


♦RETFLG . LIWFLG( R4 ) 


jARE UE IN RETRY MODE ? 












RNF 




lYFS OflN'T TNIT SUB COUNT 


091774 


0127S7 

VAC f <J r 








MOV 




•INTTTALT2E THF SUB-TTFRATIQN COUNTER 


vcc wc 








It • 


nov 


WWW T * f n ^ 


3 PUT THF DUMMY PA^KFT AntlRF^^ TM 


022006 


116563 


000000 


000000 




novB 


CMD(R5),CMD(R3) 


:M0VE THE COMMAND PRIMITIVE TO THE PACKET 


022014 


004737 


022130 






JSR 


PC. BYTCNT 


;G0 GET THE BYTE COUNT 


022020 


013763 


003574 


000002 




MOV 


BYTES. ITM0FF(R3) 


;PUT THE BYTE COUNT IN THE DUMMY PACKET 


022026 


004737 


022246 






JSR 


PC. SELDAT 


:G0 GET THE DATA 


022032 


004737 


022712 






JSR 


PC. SELREC 


5 GO GET THE RECORD COUNT 


022036 


022737 


000003 


002114 




CMP 


#3.L$TEST 


iARE UE IN TEST 3 ? 


022044 


001024 








BNE 


5* 


sYES. PRINT COUNTS 


022046 


122765 


000020 


000000 




CMPB 


*WR.CMD(R5) 


sIS IT A WRITE COMMAND ? 


022054 


001020 








BNE 


5$ 


sNO. GET OUT 


022056 


032764 


000200 


000026 




BIT 


♦RETFLG.LUNFLG(R4) 


:ARE UE IN RETRY MODE ? 


022064 


001014 








BNE 


5« 


;YES DON'T PRINT COUNTS 


022066 










PRINTF 


♦COUNTS. BYTES. ITERS 


sYES. PRINT BYTE AND ITERATION COUNTS 


022066 


013746 


003576 






MOV 


ITERS. -(SP) 




022072 


013746 


003574 






MOV 


BYTES. -(SP) 




022076 


012746 


020177 






MOV 


♦COUNTS. -(SP) 




022102 


012746 


000003 




m 


MOV 


♦3.-(SP) 




022106 


010600 








MOV 


SP.RO • 




022110 


104417 








TRAP 


CtPNTF 




022112 


062706 


000010 






ADO 


♦10. SP 




022116 


012703 


003442 




SI: 


MOV 


♦PCMDBF.R3 


:PUT THE PROGRAM COMMAND RING ADDRESS IN 


022122 


010302 








MOV 


R3.R2 


:R3 AND R2 


022124 


000240 








NOP 


J TEMP 




022126 


000207 








RTS 


PC 


i RETURN 
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.S8TTL BYTE COUNT 



SEQ 7S 



BYTE COUNT 






2885 








2806 








2887 








2888 








2889 








2890 








2691 








2892 








2899 








2894 
















Z89D 








28» ' 
























9 AAA 


A991 1A 


005037 


003574 


«t01 


OZclA4 


032764 


000200 


ZtvZ 


A991 


001404 




Zt03 


U«2i** 


013737 


0C3746 






C00430 








005765 


000002 




A991 ikA 


001404 






A331 iLO 


016537 


000002 




VCCl 'W 


000421 




2909 








2910 


022172 


122765 


000020 


2911 


022200 


103415 




2912 


022202 


004737 


023010 


2913 


022206 


023727 


003604 


2914 


022214 


101372 




2915 


022216 


023727 


003604 


2916 


022224 


103766 




2917 


022226 


013737 


003604 


2918 


022234 


013737 


003574 


2919 


022242 


000240 




2920 


022244 


000207 





000026 
003574 

003574 

000000 

020000 

000024 

003574 
003746 



J BYTE COUNT 

I Called by 
iCalla to 
i Output* 

s Register Inputs 

: Register Output: 
: Registers Used : 



CnOBLO 
RANGEN 

BYTES (contains byte or item count to be used for this iteration set) 

R5 - pointer to test cotmnand table 

R4 - pointer to LUN BLOCK 

None 

None 



BYTCNTi 



5t{ 



101: 
15t: 



20$; 



CLR BYTES 

BIT ♦RETFLG.LUNFLG(R4) 

BEQ 5« 

MOV BYTSAV. BYTES 

BR 20* 

TST ITMCNTCRS) 

BEQ 10* 

MO; ITMCNTCRS). BYTES 

BR 20* 

CMPB ♦UR.CM0CR5) 

BLO 20* 

JSR PC. RANGEN 

CMP RANURO.«nAXBUF 

BHI 15t 

CMP RANURO.«MINBUF 

BLO 15 « 

MOV RANURD. BYTES 

MOV BYTES. BYTS/'V 

NOP sTEMP 

RTS PC 



CLEAR BYTES 

ARE UE IN RETRY MODE ? 
NO. CONTINUE 
RESTORE OLD BYTE COUNT 
EXIT 

CHECK ITMCNT FOR 0 
CONTINUE IF IT IS 0 
PUT ITMCNT INTO BYTES 
EXIT 

IS IT A READ OR URITE 

GET OUT IF IT ISN'T 

GO TO THE RAP400M GENERATOR 

IS THE RESULT WITHIN THE LIMITS ? 

BRANCH IF TOO HIGH 

IS IT TOO SMALL ? 

BRANCH IF TOO SMALL 

PUT RANWRD INTO BYTES 

SAVE THE CURRENT BYTE COUNT 

RETURN 
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SELECT DATA PATTERN 



SEQ 74 



2922 
2923 
2924 
292S 
2926 
2927 
2920 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
297? 
2973 
2974 
2975 
2976 
2977 
2978 



.SBTTL SELECT DATA PATTERN 



SELECT DATA PATTERN 



Called by 
Calls to 
: Inputs 

Outputs 

Register Inputs: 
Registers Used : 



022246 








SELDAT: 






022246 










PUSH 


<R1.R5> 


022252 


C32764 


000200 


000026 




BIT 


«RETFLG.LUNFLG(R4) 


022260 


001050 








BNE 


20* 


022262 


105765 


000001 






TSTB 


DATPATCR5 J 


022266 


001445 








BEQ 


20$ 


022270 


105737 


002235 






TSTB 


PATERN 


022274 


001404 








BEQ 




022276 


113764 


002235 


000024 




MOVB 


PATERN,PATSAVCR4) 


022304 


000420 








BR 


101 




X\1j to J 






1 1 • 

I* • 


1 O 1 D 




022312 


100404 








BMI 


5* 


022314 


116564 


000001 


000024 




riovB 


DATPAT(R5),PATSAV(R4) 


022322 


000411 








BR 


10 » 


022324 


005264 


000024 




51: 


INC 


PATSAVCR4) 


022330 


026427 


000024 


000010 




CMP 


PATSAV(R4),«EN0PAT 


022336 


001003 








BNE 


101 


022340 


012764 


000001 


000024 




MOV 


#l..PATSAV(R4) 


022346 


013705 


003574 




lOf : 


MOV 


BYTES. RS 


022352 


032705 


000001 






BIT 


♦BIT0.R5 


022356 


001401 








BEQ 


15* 


022360 


005205 








INC 


R5 


022362 


012703 


070614 




151: 


MOV 


«URTBUF.R3 


022366 


116401 


000024 






MOVB 


PATSAV(R4).R1 


022372 


005301 








DEC 


Rl 


022374 


006301 








ASL 


Rl 


022376 


004771 


0<i2412 






JSR 


PC.8PATTBLCR1) 


022402 








20* : 


POP 


<R5.R1> 


022406 


000240 








NOP 


;TEMP 


022410 


000207 








RTS 


PC 


022412 








PATTBL: 






022412 


022430 








' .UORD 


PATGNl 


022414 


022444 








.WORD 


PATGN2 



CM06LD 
RANGEN 

Data Pattern in test coHMiand table 
PATSAV in LUN BLOCK if rotating pattern in use 
Write Buffer filled Mith appropriate data pattern 
PATSAV in LUN BLOCK updated to next pattern 

RS - pointer to test comiiand table 

R4 pointer to LUN BLOCK 

R3 - pointer to URTBUF 

R2 pointer to data pattern 



;SAVE Rl AND R5 

;ARE WE IN RETRY M002 ? 

:YES DON'T CHANGE DATA 

sTEST DATPAT FOR A TEST PATTERN 

{BRANCH IF WE DON'T NEED ONE 

{PATTERN SPECIFIED IN SOFTWARE P-TABLE ? 

:N0. KEEP GOING 

:PUT THE PATTERN IN THE SAVE LOCATION 



:D0 WE WANT ROTATING DATA PATTERNS 7 
;IF NEGATIVE GO TO 5t 
iLET PATSAV EQUAL DATPAT 
{BRANCH 

:ADD 1 TO PATSAV 

:ARE WE AT THE END OF THE PATTERN TABLE 
>N0, KEEP GOING 

{AT THE END, LET PATSAV EQUAL 1 

sPUT THE BYTE COUNT IN RS 
:IS THE BYTE COUNT ODD ? 
{BRANCH IF NOT 

{MAKE BYTE COUNT EVEN FOR PATGEN 

{POINT R3 TO THE WRITE BUFFER 
{SAVE PATSAV IN Rl 
{ADJUST FOR TABLE STEP 
{MAKE IT MOO 2 OFFSET 

{GO FILL THE BUFFER 
{RESTORE R5 AND Rl 

{RETURN 



(ALL I'S 
{ALL O'i 



GLOeAL AREAS MACRO Y0S.02 
SELECT DATA PATTERN 
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SEQ 75 



2979 


022416 


022456 




2980 


022420 


022516 




2961 


022422 


022532 




2982 


022424 


022552 




2983 


022426 


022566 




2984 








2985 


022430 






2986 


022430 


012723 


177777 


2987 


022434 


162705 


000002 


2988 


022440 


001373 




2989 


022442 


000207 




2990 








2991 


022444 






2992 


022444 


005023 




2993 


022446 


162705 


000002 


2994 


022452 


001374 




2995 


022454 


000207 




2996 








2997 


022456 






2998 


022456 


C12723 


133333 


2999 


022462 


162705 


000002 


3000 


022466 


001412 




3001 


022470 


012723 


155555 


3002 


022474 


162705 


000002 


3003 


022500 


001405 




3004 


022502 


012723 


066666 


3005 


022506 


162705 


000002 


3006 


022512 


001361 




3007 


022514 


000207 




3008 








3009 


022516 






3010 


022516 


012723 


125252 


soil 


022522 


162705 


000002 


3012 


022526 


001373 




3013 


022530 


000207 




3014 








3015 


022532 






3016 


022532 


004737 


023010 


3017 


022536 


013723 


003604 


3016 


022542 


162705 


000002 


3019 


022546 


001371 




3020 


022550 


000207 




3021 








^022 


022552 






3023 


022552 


012723 


167356 


3024 


022536 


162703 


OwOOuZ 


3025 


022562 


001373 




3026 


022564 


000207 




3027 








3028 


022566 






3029 


022566 






3030 


022570 


012702 


001000 


5031 


022574 


012723 


133333 


3032 


022600 


162705 


000002 


3033 


022604 


001440 




3034 


022606 


162702 


000002 


3035 


022612 


001420 





PATGNl : 



PATGN2 : 



PArGN3: 



II: 

PATGN4: 



PATGN5: 



PATGN6: 



PATGN7: 



1%. 
3t: 



.WORD PATGN3 

.UORO PATGN4 

. WORD PATGN5 

. UORO PATGN6 

.WORD PATGN7 



MOV ♦-l.CRS)* 

SUB «2.R5 

BNE PATGNl 

RTS PC 



CLR (R3)» 

SUB *2.R5 

BNE PATGN2 

RTS PC 



MOV *133333,(R3)* 

SUB *2.R5 

BEQ 1$ 

MOV #155555. (R3)» 

SUB •2.R5 

BEQ It 

MOV «066666.(R3)* 

SIT ♦2.R5 

BNc PATGN3 

RTS PC 



MOV #125252. (R3)* 

SUB *2.RS 

BNE PATGN4 

RTS PC 



JSR PC.RANGEN 

MOV RANUR0.(R3)» 

SUB •2.R5 

BNE PATGN5 

RTS PC 



MOV #167356. (R3)» 

SUB #2.R5 

BNE PATGN6 

RTS PC 



PUSH <R2> 

MOV #512.. R2 

MOV #133533, (R3)» 

SUB #2,R5 

BEQ lOf 

SUB •2.R2 

BEQ 51 



WORST CASE MFM 
ALTERNATE I'S AND OS 
RANDOM DATA 
1110 REPEATING PATTCRN 
COMBINATION PAT 3 AND 5 



fPUT ALL I'S INTO THE BUFFER 
{SUBTRACT lUO FROM R5 
:KEEP GOING IF UE AREN'T AT 0 
! RETURN 



{PUT ALL O'S INTO THE BUFFER 

i SUBTRACT TUO FROM R5 

;KEEP GOING IF UE AREN'T AT 0 

{RETURN 



PUT THE NUMBER INTO TfC BUFFER 
SUBTRACT TUO FROM RS 
KEEP GOING IF UE AREN'T AT 0 
tPUT THE NUMBER INTO THE BUFFER 
SUBTRACT 1U0 FROM R5 
KEEP GOING IF UE AREN'T AT 0 
PUT THE NUMBER INTO THE BUFFER 
SUBTRACT TUO FROM RS 
KEEP GOING IF UE AREN'T AT 0 
RETURN 



;PUT ALTERNATING 1 AND 0 INTO THE BUFFER 

{SUBTRACT TUO FROM R5 

iKEEP GOING IF UE AREN'T AT 0 

■RETURN 



iGO GENERATE RANDOM PATTERN 
PUT THE NUMBER INTO THE BUFFER 
SUBTRACT TUO FROM R5 
KEEP GOING IF UE AREN'T AT O 
RETURN 



PUT 1110 REPEATING IN BUFfER 

SUBTRACT TUO FROM R5 

KEEP GOING IF UE AREN'T AT 0 

RETURN 



PUT THE NUMBER INTO THE BUFFER 

SUBTRACT TUO FROM R5 

KEEP GOING IF UE AREN'T AT 0 
iHAVE UE DONE A FULL BLOCK YET 
:YES 00 NEXT BLOCK IN PATTERN 5 



GLOBAL AREAS MACHO Y0S.02 Monday 26-Au9-85 09:S« 
SELECT DATA PATTERN 



3056 


022614 


012723 


155555 






3037 


022620 


162705 


000002 




sue 


30SS 


022624 


001430 






8EQ 


3039 


022626 


162702 


000002 




SUB 


3040 


022632 


001410 






BEQ 


3041 


022634 


012723 


066666 




MOV 


3042 


022640 


162705 


00C002 




SUB 


3043 


022644 


001420 






BEQ 


3044 


022646 


162702 


000002 




SUB 


3045 


022652 


001350 






BNE 




II2269# 








riuif 


3047 


022660 


004737 


023010 


6t: 


JSR 


3048 


022664 


013723 


003604 




MOV 


3049 


022670 


162705 


000002 




SUB 


3050 


022674 


001404 






BEQ 


30S1 


022676 


162702 


000002 




SUB 


3052 


022702 


001366 






BNE 


3053 


022704 


000731 






BR 


3054 


022706 






lot: 


POP 


305S 


022710 


000207 






RTS 


3056 












3057 













■g* 35-2 SEQ 76 



•155555. (R3)» |PUT THE NUMBER INTO THE BUFFER 

•2.R5 (SUBTRACT TWO FROM RS 

101 sKEEP GOING IF UE ARkN' T AT 0 

•2.R2 (HAVE UE DONE A FULL BLOCK YET 

51 J YES 00 NEXT BLOCK IN PATTERN 5 

•066666. (R3)* tPUT THE NUMBER INTO THE BUFFER 

•2.R5 ( SUBTRACT TUG FROM R5 

10* tKEEP GOING IF UE AREN'T AT 0 

•2.R2 (HAVE UE DONE A FULL BLOCK YET 

31 lYES 00 NEXT BLOCK IN PATTERN 5 

•512. .R2 

PC.RANGEN :G0 GENERATE RANDOM PATTERN 

RANUR0.(R3)* ;PUT THE NUMBER INTO THE BUFFER 

•2.R5 : SUBTRACT TUO FROM R5 

10$ .KEEP GOING IF UE AREN'T AT 0 

•2.R2 :HAVE UE DONE A FULL BLOCK YET 

61 iYES DO NEXT BLOCK IN PATTERN 5 

II 

<R2> 

PC ; RETURN 



GLOBAt MEAS 
SELECT RECORD 

3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3060 
3069 
3070 

3071 022712 

3072 022712 

3073 022720 

3074 022722 

3075 022730 
3076 

3077 022732 

3078 022756 

3079 022''40 
5060 022746 
30«1 

30S2 022750 
3093 022754 
3064 022762 

3085 022764 

3066 022772 

3067 022774 

3086 023002 
3089 

3090 023004 

3091 023006 



riACRO T0S.02 Monday 26-Auo-85 09.54 Pm^m 36 

.SBTTL SELECT RECORD 



SEQ 77 



SELECT RECORD 

Called by 
Calls to 
Outputs 

Ragiatar Inputs 



SELREC: 



CnOBLD 
RANGEN 

ITERS (nuabar of itarationa for thia sat) 
RS - pointar to tast coaaand tabla 
R4 ~ pointar to LUN BLOCK 



032764 


000200 


000026 




BIT 


♦RETFLG.LUNFLG(R4) 


:ARE UE IN RETRY MODE 7 


001404 








BEQ 


S* 


sNO. KEEP GOING 


012737 


000001 


003576 




MOV 


♦LITERS 


J SET THE ITERATION COUNT TO 1 


000425 








BR 


15< 


2 GET OUT 


005765 


000004 




5»: 


:ST 


ITRCNT(R5) 


(TEST THE ITERATION COUNT 


C01404 








BEQ 


101 


:IF IT IS 0 TH^N BRANCH 


016537 


000004 


003576 




MOV 


ITRCNTCRS), ITERS 


sSAVE THE IT. RATJN C'lJNT 


000416 








BR 


15 » 


tGET OUT 


0047S7 


023010 




101: 


JSR 


PC. RANGEN 


:G0 TO THE RANDOM GENERATOR 


023727 


003604 


003720 




CMP 


RANURO.«MAXITR 


sis THE ITERATION COUNT TO HIGH 


101372 








BHI 


101 


tGO TRY AGAIN 


023727 


003604 


000144 




CMP 


RANURO.«MINITR 


sis THE ITERATION SET TOO SMALL 


103766 








6L0 


lot 


sGO TRY AGAIN 


013737 


003604 


003576 




MOV 


RANURO. ITERS 


sSAVE THE RANDOM NUMBER 


000400 








BR 


15» 


;EXIT 


000240 






151: 


NOP 


sTEMP 




000207 








RTS 


PC 


s RETURN 



GLOe/M. MEAS HACftO Y05.02 
RAHOOn NUr«ER GENERATOR 



3095 
5094 
5095 
5096 
5097 
309« 
5099 
5100 
5101 
5102 
5105 
5104 
5105 
5106 
5107 
5106 
5109 
5110 
5111 
5112 
5115 
5114 
5115 
5116 
111? 
5116 
5119 
5120 
5121 
5122 
5125 
5124 
5125 
5126 
5127 
5120 
5129 
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.SeTTL RANDOn NUnBER GENERATOR 



iRANDOtI NUr«ER GENERATOR 



i Called by 
I Input* 
tOutixits 
iR*gi«t«r* UMd 



BYTCNT. ELOAT. SELREC 
RANI. RAN5 

R5 



025010 








RANGEN: : 




025010 








PUSH 


<R5> 


025012 


016457 


000202 


005606 


HDV 


SEE01(R4}.RAN1 


025020 


016457 


000204 


005610 


flOV 


ScCuZC n4 } , HHHZ 


025026 


016457 


000206 


005612 


nov 


SEE05CR4).RAN5 


025054 


015705 


005606 




HOV 


RANl.RS 


025040 


000241 






Ci c 


RAN5 


025042 


005557 


005612 




otc 


025046 


C06105 






ROL 


R5 


025050 


006105 






ROL 


R5 


025052 


065705 


005610 




ADD 


RAN2.R5 


025056 


010557 


005606 




nov 


R5.RAN1 


025062 


065705 


005612 




ADD 


RAN5.R5 


025066 


006105 






ROt 


R5 


025070 


006105 






ROL 


RS 


025072 


065705 


005610 




ADD 


RAN2.R5 


025076 


006105 






ROL 


R5 


025100 


006105 






ROL 


R5 


025102 


010557 


005610 




nov 


R5.RAN2 


025106 


015757 


005606 


005604 


nov 


RANl.RANURO 


025114 


015764 


005606 


000202 


nov 


RAN1.SEED1(R4) 


025122 


015764 


005610 


000204 


nov 


RAN2.SEED2CR4) 


025150 


015764 


005612 


000206 


nov 


RAN5.SEE03(R4) 


025156 








POP 


<R^> 


025140 


000240 






NOP 


sTEHP 


025142 


000207 






RTS 


PC 



I SAVE R5 

sPUT SEEDl INTO RANI 

iPUT SEE02 INTO RAN2 

tPUT SEE05 INTO RAN5 

inOVE THE FIRST SEED INTO R5 

(CLEAR THE CARRY FLAG 

iDECREHENT THE THIRD SEED 



iADD THE SECOND SEED TO R5 

,PUT IT ALL IN THE FIRST SEED 

sPUT THE THIRD SEED INTO R5 

■ 

'add the SECOND SEED TO R5 

I 

IpUT IT IN THE SECOND SEED 

tPUT THE FIRST SEED INTO RANWORD 

I PUT RANI INTO SEEDl 

(PUT RAN2 INTO SEE02 

(PUT RAN3 INTO SEEDS 

{RESTORE R5 



lEXIT 



GLOBAL AREAS 
QUEUE COflMANCS 



3131 
3132 
3133 
3134 
3135 
3136 
3137 
3136 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3155 
3159 
3160 
3161 
3162 
3163 
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.SBTTL QUEUE COtmANDS 



SEQ 79 



QUEUE COMMANDS 

Called by 
Calls to 
Register Inputs: 

Register Output: 
Registers Used : 



CMMDSQ 
SUBITR 

R3 pointer to next slot in ring 
R4 pointer to LUN BLOCK 

R3 updated to point to next available slot 
R5 Points to dummy packet 



023144 








QCMO : : 






023144 


022703 


003522 






CMP 


0PCBEND.R3 


023150 


001002 








BNE 


1* 


023152 


012703 


003442 






MOV 


*PCMDBF.R3 


023156 


012705 


003522 




It: 


MOV 


#0UMPKT.R5 


023162 


116563 


000000 


000000 




MOVB 


CM0(R5).CM0(R3) 


023170 


C16563 


000002 


000002 




MOV 


ITM0FF(R5).ITM0FKR3) 


023176 


004737 


023436 






JSR 


PC.OBCTHO 


023202 


016463 


000034 


000004 




MOV 


0BJF0L(R4).0B0FFLCR3) 


C23210 


016463 


000036 


000006 




MOV 


0BJFDH(R4).0B0FFH(R3) 


023216 


005037 


003600 






CLR 


6UFA0R 


023222 


004737 


023246 






JSR 


PC. SUBITR 


023226 


000400 








BR 


5» 


023230 


013763 


003600 


000012 


5*: 


MOV 


BUFADR.BUF0FF(R3) 


023236 


062703 


000014 






ADD 


♦PCBSTP.R3 


023242 


000240 








NOP 


J TEMP 


023244 


000207 








RTS 


PC 



.EVEN 



IS R3 POINTING AT THE END OF THE RING ? 
NO. THEN KEEP GOING 
YES. SET IT TO THE RING BEGINNING 
POINT R5 TO THE DUMMY PACKET 
PUT THE COMMAND PRIMITIVE INTO THE RING 
J PUT THE ITEM OFFSET INTO THE RING 

;G0 GET THE OBJECT COUNT 

:PUT THE LOU FIELD INTO THE RING 

:PUT THE HIGH FIELD INTO THE RING 

.CLEAR THE BUFFER ADDRESS LOCATION 
iGO TO SUB ITERS 

:PUT THE BUFFER ADDRESS INTO THE RING 
:MOVE R3 TO THE NEXT SLOT IN THE /RING 

: RETURN 



GtOeAL AREAS 
SUe-ITERATTON 

5165 
3X66 
3167 
3166 
3169 
3170 
3171 
3172 
3173 
3174 
3175 

3176 023246 

3177 023246 

3178 023252 

3179 023254 

3180 023262 
3181 

3162 023264 

3163 023270 

3184 023272 

3185 023300 

3186 023306 

3187 023314 

3188 023322 

3189 023324 

3190 023332 

3191 023334 

3192 023342 
3193 

3194 023344 

3195 023352 

3196 023354 

3197 023362 

3198 023364 

3199 023372 

3200 023400 
3201 

3202 023402 

3203 023410 

3204 023412 

3205 023420 

3206 023422 

3207 023426 

3208 023432 

3209 023434 
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-SBTTL SUB ITERATION 



SEQ 



sue ITERATION 

Called by 

Outputs 

Register Inputs: 



EUBITR: 



QCMD 
BUF'AOR 

R3 pointer to conunand slot 
R4 pointer to LUN BLOCK 



105763 


000000 






TSTB 


CM0(R3) 


lARE UE ISSUING NULL COMMANDS ? 


001467 








BEQ 


35* 


: BRANCH IF THE NULL COMMAND 


122763 


000020 


oooooo 




CnPB 


AIJD f*MA^ DY 


•TC TT PDCATCD TUAM A UDTTC 


103447 








BLO 






005337 


V£ 

009602 




bl : 


Dc.C 


CI ID PUT 


;3UDlnMLI 1 r KUn bUouN 1 


001025 








Okie 


1 c t 


. DDAklPU TP MAT A 




000004 






MAW 

nuv 


AOnCCI ^DT^ UOTQIIC 3 
UOU^ r LI K3 J f WK 1 OUr -c 


. Di IT 1 Au nonpo nn ic^t rniuT tm udtbiif 


012737 


000U04 


OOooUe 




MAU 

nuv 


AU CI IDPUT 


■ DPTIUTT CltfirUT 










nov 


ORDBUF BUFADR 


•PUT THE READ BUFFER ADDRESS IN dUFADR 


122763 


000020 


OOOOOO 




CMPB 


»MR.CM0(R3) 


: IS IT A WRITE COMMAND 


001043 








BNE 


351 


sGET OUT IF IT'S NOT 


022737 


000003 


002114 




CMP 


♦3, LI TEST 


sARE UE IN TEST 3 ? 


0C1017 








BNE 


20 1 


sNO. SET URITE BUFFER IN BUFADR 


012737 


070612 


003600 




MOV 


«URTBUF- 2. BUFADR 


:SET MODIFIED URITE BUFFER IN BUFADR 


000433 








BR 


35* 


:EXIT 


122763 


000020 


OOOOOO 


15»: 


CMPB 


*UR.CM0(R3) 


;SEE IF ITS A URITE 


001407 








BEQ 


20» 


:YES. BRANCH 


022737 


000006 


002114 




CMP 


♦6. LITEST 


{ARE UE IN TEST 6 ? 


001751 








BEQ 


101 


sYES. PUT READ BUFFER IN BUFADR 


112763 


000040 


030000 




MOVB 


♦ACC.CMOCR?) 


;SET UP AN ACCESS DATA COMMAND 


012737 


070614 


003600 


20»: 


MOV 


«URTBUF. BUFADR 


:SET URTBUF ADDRESS IN BUFADR 


000414 








BR 


35* 




032764 


000200 


000026 


25$: 


BIT 


«RETFLG.LUNFLG(R4) 


:ARE UE IN RETRY MODE 


001410 








BEQ 


35 » 


;N0, GET OUT 


022737 


000004 


003602 




CMP 


♦N.SUBCNT 


;JUST DO A TRACE RECORD 


00100? 








BNE 


30) 


:N0. INCREMENT THE SUB COUNT 


005037 


003602 






CUR 


SUBCNT 


:YES. CLEAR THE SL« COUNT 


005237 


003602 




30): 


INC 


SUBCNT 


: INCREMENT THE SUB COUNT 


000240 






35»: 


NOP 


5 TEMP 




000207 








RTS 


PC 


: RETURN 



GLOBAL AREAS MACRO Y05.02 
OBJET COUNT HANDLER 



3211 
3212 
3213 
3214 
3215 
3216 
3217 
321S 
3219 
3220 
3221 
3222 

3223 023436 

3224 023436 

3225 023440 

3226 023444 

3227 023450 

3228 023452 

3229 023454 

3230 023460 

3231 023462 
S2S2 023466 
3233 023472 
3234 

3235 023474 

3236 0235C2 

3237 023504 

3238 023510 

3239 023512 

3240 023516 

3241 023520 

3242 023526 
3243 

3244 023530 

3245 023536 

3246 023544 

3247 023546 

3248 023554 

3249 023556 

3250 023564 

3251 023566 

3252 023572 
3253 

3254 023574 

3255 023602 

3256 023604 

3257 023610 

3258 023612 
52«9 023614 
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SBTTL OBJET COUNT HANDLER 
***************************** 

OBJECT COUNT HANDLER 



SEQ 81 



Called by 

Inputs 

Outputs 

Register Inputs: 



OBCTHD: 



QCMD 

Current Object Count in LUN BLOCK 
Updated Object Count in LUN BLOCK 
R3 pointer to coimnard slot 
R4 pointer to LUN BLOCK 











PUSH 


<R1 > 


116301 


000000 






MOVB 


CMD(R3) ,R1 




000007 






BIC 


07, Rl 


005701 








TST 


Rl 


001456 








BEQ 


6* 


022701 


000160 






CMP 


AREU.Rl 


C01005 








BNE 


11 


00S064 


000034 






CLR 


0BJFDL(R4) 


005064 


000036 






CLR 


OB JFDH( R4 ) 


000446 








BR 


61 


032764 


000200 


000026 


11: 


BIT 


♦RETFLG.LUNFLGC 


001012 








BNE 


21 


022701 


000050 






CMP 


*SPC.R1 


101007 








BHI 


2* 


022701 


000100 






CMP 


MTM.Rl 


001404 








BEQ 


2* 


016337 


000002 


003710 




MOV 


ITM0FF(R3).R8 


000403 








BR 


31 


012737 


000001 


003710 


21: 


MOV 


•1.R8 


032763 


000002 


000000 


3$: 


BIT 


«£0TBIT.CM0(R3) 


001021 








BNE 


6» 


032763 


000001 


000000 




BIT 


*REVBIT.CMD(R3) 


001007 








BNE 


4* 


063764 


003710 


000034 




ADD 


R8.0BJFDL(R4 5 


103011 








BCC 


6* 


005264 


000036 






INC 


0BJF0H(R4) 


000406 








BR 


61 


163764 


003710 


000034 


4$: 


SUB 


R8.0BJFDL(R4) 


103002 








BCC 


6* 


005364 


000036 






DEC 


0BJF0H(R4) 








6$: 


POP 


<R1> 


000240 








NOP 


;TEMP 


000207 








RTS 


PC 



SAVE Rl 

PUT THE COMMAND PRIMITIVE INTO Rl 

STRIP OFF THE MODIFIERS 

IS IT THE NULL COMMAND ? 

EXIT IF IT IS 

IS IT A REWIND ? 

BRANCH IF NOT 

CLEAR THE OBJECT 

COUNT FIELD AND 

EXIT 

ARE UE IN RETRY MODE 

YES. ONLY ONE OBJECT AT A HUE 

IS IT A NON DATA TRANSFER COMMAND ? 

BRANCH IF IT IS 

IS IT A WRITE TAPE MARK ? 

BRANCH IF IT IS 

PUT THE ITEM COUNT IN TEMP REGISTER 
CONTINUE 

PUT A 1 IN THE TEMP REGISTER 

IS IT AN LEOT COMMAND ? 

GET OUT IF IT IS 

IS THE COMMAND REVERSE ? 

BRANCH IF REVERSE 

ADD TEMP TO THE OBJECT COUNT 

BRANCH IF NO CARRY 

OTHERWISE ADO 1 TO THE HIGH OBJECT COUNT 
EXIT 

IF REVERSE. SUBTRACT TEMP FROM THE 
OBJECT COUNT AND BRANCH IF NO CARRY 
OTHERWISE SUBTRACT 1 FROM OBJECT COUNT HIGH 
RESTORE Rl 

EXIT 
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3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
S30S 
3304 
3305 
3306 
3307 
3508 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
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SBTTL CLASS DRIVER TRANSMIT 



SEQ 82 



Class Driver Transmit 



Callad By 
Calls To 
Inputs 

Outputs 



Register Inputs: 



CMMDSO 
CDRECV. 
CRDLIM 
COLSAV 
lOSTAT 
CMDSEQ 
GCSREF 
R2 - Old 
R3 
R4 



STFPCK. PRTDRV 
Command slots open in the drive. 
Old driver command pointer. 
Transfer status. 

Number appended to each coirimand packet. 
Get Command Status reference number, 
pointer to program command ring. 
New pointer to program command ring. 
Lun block pointer. 



Register Outputs: RS - Old pointer to driver command ring. 



023616 








CLSORV: 


: 






023616 










PUSH 


<R3.R5> 


SAVE R3 R5 


023622 


016405 


000016 






MOV 


C0LSAV(R4).R5 


POINT R5 TO THE OLD DRIVER COMMAND 




vOc f O f 




woo r ^ 




BTT 


•GCSRFL.PCFLAG 


IS THIS A GCS COMMAND ? 


023634 


001010 








BNE 


10$ 


YES. GO SETUP 


023636 


022703 


003442 






CMP 


«PCM0Br.R3 


IS R3 AT 1HE BEGINNING OF THE PROGRAM RING ? 


023642 


001403 








BEQ 


5$ 


YES. BRANCH 


023644 


162703 


000014 






sue 


#PCBSTP.R3 


NO. MOVE R5 ONE SLOT BACK 


023650 


000402 








BR 


10$ 


CONTINUE 


023652 


062703 


000044 




51: 


ADD 


♦PCB3SP.R3 


YES. ADVANCE R3 TWO SLOTS 


023656 


005037 


010732 




10$: 


CLR 


lOSTAT 


CLEAR THE I/O STATUS UQRD 


023662 


122763 


000170 


000000 




CMPB 


#INT.CM0(R3) 


IS THIS A INITIALIZATION COMMAND ? 


023670 


001003 








BNE 


15$ 


CONTINUE IF IT ISN'T 


023672 


004737 


026556 






JSR 


PC.PRTINT 


CALL THE PORT INIT ROUTINE 


023676 


000464 








BR 


55$ 


EXIT 


023700 


005764 


000010 




151: 


TST 


SLTUSE(R4) 


DID WE HANDLE ANY RESPONSES LAST TIME ? 


023704 


001402 








BEQ 


20$ 


BRANCH IF NOT 


023706 


004737 


026476 






JSR 


PC.PRTCLR jGO CLEAR THE OLD RESPONSES 


023712 


004737 


024064 




20$: 


JSR 


PC. CDRECV 


GO CHECK FOR ANY NEW RESPONSES 


023716 


105737 


010732 






TSTB 


lOSTAT 


IS THE I/O STATUS O.K. ? 


023722 


001052 








BNE 


55$ 


•EXIT IF IT ISN'T 


02S724 


032737 


000020 


003674 


25$: 


BIT 


«GCSCFL.PCFLAG 


IS THIS A GCS COMMAND ? 


023732 


001010 








BNE 


50$ 


YES. GO SETUP MINLIM 


023734 


032737 


000100 


003674 




BIT 


♦CMDONE.PCFLAG 


IS THIS A NULL COMMAND ? 


023742 


001042 








BNE 


55$ 


■EXIT IF IT IS 


023744 


032763 


000200 


000000 




BIT 


#IMri.CM0(R5) 


IS THIS AN IMMEDIATE COMMAND ? 


023752 


001404 








BEQ 


55$ 


NO. BRANCH 


023754 


112737 


000001 


010754 


50$: 


MOVB 


♦l.MINLIM 


YES. SET MINIMUM LIMIT TO 1 


023762 


000403 








BR 


40$ 


.BRANCH 


023764 


112737 


000002 


010754 


35$: 


MOVB 


#2.MINLIM 


NO. SET MINIMUM LIMIT TO 2 


023772 


123737 


010755 


< i.0754 


40$: 


CMPB 


CRDLIM. MINLIM 


DO UE HAVE ENOUGH CREDITS ? 


024000 


103004 








BHIS 


45$ 


YES. KEEP GOING 


024002 


052737 


020000 


010752 




BIS 


#I0ICRD.I0STAT 


SET INSUFFICIENT CREDIT IN I/O STATUS 


024010 


000417 








BR 


55$ sGET OUT 
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CLASS DRIVER TRANSMIT 



3318 














3319 


024012 


005264 


000006 




45»: 


INC 


3320 


024016 


032737 


000020 


003674 




BIT 


3321 


024024 


001403 








BEQ 


3322 


024026 


016437 


000006 


010736 




MOV 


3323 














3324 


024034 


105337 


010755 




50»: 


OECB 


3325 


024040 


004737 


024342 






JSR 


3326 


024044 


004737 


026172 






JSR 


3327 














3328 


024050 


010564 


000016 




55 : 


MOV 


3329 


024054 










POP 


3330 


024060 


000240 








NOP 


3331 


024062 


000207 








RTS 
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SEQ 



CM0SEaCR4) 

•GCSCFL.PCFLAG 

50» 

CMDSEQ(R4),GCSREF 

LROLIM 

PC.S.rPCK 

PC.PRTDRV 

RS.C0lSAV(R4) 

<R5.R3> 

5 TEMP 

PC 



I ADD 1 TO THE COMMAND SFQUENCE NUMBER 
; IS IT A GCS COMMmNO ? 
sNO. BRANCH 

{SAVE THE COMMAND REFERENCE NUMBER 

! SUBTRACT 1 FROM THE CREDIT LIMIT 
iGO FILL THE TMSCP PACKET 
sGO SEND THE COMMAND 

I SAVE R5 IN COMMAND OLD POINTER SAVE 
: RESTORE R3. AND R5 

; RETURN 



GLOBAL AREAS riACRO YOS.OZ 
CLASS DRIVER RECEIVE 



3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
5346 
3547 
5348 
5349 
3350 
3351 
3552 
5353 
5354 
5555 
3356 
5357 
5558 
5559 
5560 
5361 
3362 
5565 
5364 
3565 
5366 
3367 
3368 
3569 
5370 
5571 
5372 
3373 
3374 
iAlZ 
5576 
5577 
5578 
3379 
3380 
3381 
3582 
3385 
3384 
3385 
3386 
3387 
5588 
3389 
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.SBTTL CLASS DRIVER RECEIVE 



SEQ 84 



Class Driver Receive 



Called By 
Calls To 
Inputs 



Register Inputs: 



;Register9 Used 



CLSDVR 

PORECV PRTCLR 

RESP '- The nutnber of RESPONSES found. 
GCSREF - Get Command Status reference number. 
RNUSAV - NeM response buffer save 
CnsrSV - command progress count. 
ELBSAV - Error log buffer pointer. 
R2 - Old pointer to program command ring. 
R3 - NeN pointer to program command ring. 
R4 - Lun block pointer. 

R5 - Old pointer to driver command ring. 
Rl - Old pointer to driver RESPONSE ring. 



















024064 










'push 


<R1.R2> 


:SAVE R1.R2 


024070 


016401 


000020 






flOV 


RNUSAV(R4).R1 


iLET Rl - NEW RESPONSE BUFFER SAVE 


Ue4w 1 * 


Ov* 1 i r 








ICD 
Jon 


"l» ■ fUKcL V 


•TAIi OnOT nOTUPD DFrPTUP 
■ unLL. r\jn 1 UnXVCK nCwCXVC 


Oc41UO 


nAC7T7 








TCT 




■ DTn UP (IPl A I}P<;PnMCP 7 




nni 












■ Mn RPT niiT np hprp 




ni T7<7 


UU<3D f c. 






Mnu 


DPCP MMni DP 


• QAUP A rnpv PnB BCPHni 


024114 


022761 


000022 


000012 


5): 


CMP 


♦ST.SEX.P.STSCRl) 


:IS IT A SERIOUS EXCEPTION ? 


024122 


001425 








BEQ 


101 


:YES. CONTINUE 


024124 


005761 


000000 






TST 


P.CRFCRl) 


sis IT AN UNSOLICITED ERROR LOG ? 


024130 


001422 








BEQ 


lot 


sYES. GO HANDLE ERROR LOG 


024152 


026165 


000000 


000000 




CMP 


P.CRFCRl). P. CRF(R5) 


sIS THIS THE COMMAND THAT IS EXPECTED ? 


024140 


001416 








BEQ 


10) 


iYES. CONTINUE 


024142 


023761 


010736 


000000 




CMP 


GCSREF. P. CPFCRl) 


J IS IT THE GCS END PACKET 


024150 


001005 








BNE 


7» 


;N0. GO DO RESPONSE OUT OF SEQUENCE 


024152 


004757 


027006 






JSR 


PC.GCSHOL 


:G0 TO THE GCS HANDLING ROUTINE 


024156 


000461 








BR 


35 1 


iGET OUT 


024160 


112757 


000005 


010732 


7l! 


MOVB 


OMISSEQ.IOSTAT 


:SET MISSING SEQUENCE IN I/O STATUS 


024166 


004737 


034022 






JSR 


PC.COROMP 




024172 


000240 








NOP 


35$ 


sEXIT 


024174 


000452 








BR 


<#?4176 


032761 


000200 


000010 


101: 


BIT 


♦OP.ENO.P.OPCOCRl) 


sYES. IS IT AN END PACKET 7 


Oc.4204 


001427 








BEQ 


201 


:N0. GO HANDLE ERROR LOG 


02''' 206 


052737 


100000 


010732 




BIS 


«NURESP.IOSTAT 


sSET A NEW RESPONSE IN THE I/O STATUS 


02«214 


105237 


010755 






INCB 


CRDLIM 


J ADD 1 TO THE CREDIT LIMIT 


024220 


062705 


000050 






ADO 


#0CBSTP.R5 


; ADJUST THE OLD COMMAND POINTER 


024224 


022705 


004216 






CMP 


«OCBENO.RS 


»IS IT AT THE END OF THE RING ? 


024250 


001002 








BNE 


15$ 


iNO. BRANCH 


024232 


012705 


003756 






MOV 


«0CM0BF.R5 


sYES. SET IT TO THE TOP OF THE RING 


024236 


016162 


000012 


000010 


15»: 


MOV 


P.STS(R1).XFERSTCR2) 


sPUT REPSONCE STATUS IN THE HOST PACKET 


024244 


062702 


000014 






AOO 


«PCBSTP,R2 


; ADJUST R2 TO POINT AT THE NEXT SLOT 


024250 


022702 


003522 






CMP 


«PCBEN0.R2 


J IS IT AT THE END OF THE RING ? 


024254 


001006 








BNE 


251 


iNO. BRANCH 


024256 


012702 


003442 






MOV 


•PCM0BF.R2 


;YES. SET IT BACK TO TOP OF THE RING 
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CLASS DRIVER RECEIVE 



ilQI 




OOOA03 






BR 










040000 01073? 


pot • 




tfERRLOG lOSTAT 




wc^c ' c 






















ADO 


ADRBSTP Rl 


3395 


024302 


026401 


000212 




CMP 


URBEND(R4),R1 


3396 


024306 


001002 






Br.E 


301 


3397 


024310 


016401 


000210 




MOV 


URSPBFCR4}.R1 


3390 














3399 


Ot.4314 


005737 


003572 


30): 


TST 


RESP 


3400 


024320 


001275 






BNE 


5* 


3401 














3402 


024322 


005037 


003572 


35$: 


CLR 


RESP 


3403 


024326 


010164 


000020 




MOV 


R1.RNUSAV(R4) 


3404 


024332 








POP 


<R2.R1> 


3405 


024336 


000240 






NOP 


J TEMP 


3406 


024340 


000207 






RTS 


PC 



SEQ B''< 



(BRANCH TO THE END 

iSET ERROR LOG IN I/O STATUS 
{SUBTRACT 1 FROM THE RESPONSE COUNT 
: ADJUST Rl 

tIS IT AT THE END OF THE RING 7 
iNO. KEEP GOING 

(YES. SET IT TO BEGINNING OF THE RING 

I HAVE UE DONE ALL THE RESPONSES ? 
iNO. 00 IT AGAIN 

{CLEAR NOW IN CASE UE MADE ERROR EXIT 
iSAVE THE NEU RESPONSE BUFFER POINTER 
{RESTORE R2.R1 

{RETURN 
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COMMANO STijr«fER 



SEQ 86 



3408 
3409 
5410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 



.SBTTL COmAKO STUFFER 



024342 
024342 
024346 
024352 
024356 
024364 
024370 
024376 
024402 
024406 
024414 
024416 

024422 
024430 
024434 
024442 
024450 
024456 
024460 

024466 
024474 
024476 
024504 

024512 
024516 
024520 
024522 
024526 
024532 
024534 
024540 

024544 
024546 
0245S0 
024552 
024554 
024556 



Stuff THSCP CoHwand Packet 



.•Called B/ 
t Inputs 



; Outputs 

sRagistsr Inputs: 
I 

i 

iReg! stars Usad : 
STFPCK ! 











PUSH 


<R1.R2> 


005037 


010750 






CLR 


PCKSIZ 


C16401 


000014 






MOV 


CNUSAV(R4).R1 


016461 


000006 


000000 




MOV 


CMOSEQC R4 ) , P . CRF CRD 


005061 


000002 






CLR 


P.CRF*2CR1) 


016461 


000004 


000004 




MOV 


TKUNIT ( R4 ) . P . UNIT( Rl ) 


005061 


000006 






CLR 


P.UNIT»2(R1) 


005061 


000012 






CLR 


P.MOOCRl) 


032737 


000020 


003674 




BIT 


ifGCSCFL , PCPLAG 


001402 








BEQ 


5( 


000137 


025654 






JMP 


GCMDST 


016361 


000002 


000014 


51: 


MOV 


ITM0FFCR3).P.BCNT(R1) 


005061 


000016 






CLR 


P.BCNT»2CR1) 


016337 


000000 


003710 




MOV 


CM0(R3).R8 


042737 


177770 


003710 




6IC 


#177770. R8 


022737 


000001 


003710 




CMP 


♦REVBIT.R8 


001003 








BNE 


10( 


052761 


000010 


000012 




BIS 


*MO.REV.P.MOO(R1) 


03?764 


000002 


000026 


10(: 


BIT 


«SEREXC,LUNFLG(R4) 


001406 








BEQ 


15 ( 


052761 


020000 


000012 




BIS 


«nO.CSE. P.MOOCRl) 


042764 


000002 


000026 




BIC 


#SEREXC.LUNFLGCR4) 


116302 


000000 




151: 


MOVB 


CM0(R3).R2 


006202 








ASR 


R2 


006202 








ASR 


R2 


042702 


177701 






BIC 


#tC76.R2 


022702 


000046 






CMP 


«46.R2 


103002 








BHIS 


20* 


000137 


0^6044 






JMP 


ILCMO 


000172 


024544 




20«: 


JMP 


aCM0TBL(R2) 


024614 






CnOTBL : 


.UORO 


NULL 


024620 








.WORD 


REAO 


024662 








.UORO 


URITE 


024724 








.UORO 


CHOOAT 


024744 








.UORO 


ACCESS 


024764 








.UORO 


SPCREC 



CLSDRV 

CNUSAV - Points to next slot in tha driver coiMianJ ring. 
CMOSEQ - Number appended to each conMiand packet . 
GCSREF - Get Command Status reference number. 

SEREXP - Flag aet non-zero on occurrence of a serious exception. 

PCKSIZ - Length in bytes of th* coeimand packet. 

R3 - New pointer to program command ring. 

R4 - Lun block pointer. 

R5 - Old pointer to driver command ring. 

Rl - NCM pointer to driver command ring. 



tSAVE Rl AND R2 
CLEAR PACKET SIZE 

LET Rl EQUAL THE NEW COMMAND POINTER 

PUT COMMAND SEQUENCE NUMBER INTO PACKET 

CLEAR THE UPPER UORO 

PUT THE UNIT NUMBER INTO THE PACKET 

CLEAR THE UPPER UORO 

CLEAR MOOIFTERS FIELD 

ARE UE IN GCS COMMAND MODE ? 

NO. CONTINUE 

YES. GO 00 A GET COMMAND STATUS 

PUT THE BYTE COUNT INTO THE PACKET 

CLEAR THE UPPER UORD 

PUT THE PRIMITIVE IN R8 

GET JUST THE MODIFIERS 

IS THE COMMAND A REVERSE ? 

NO. BRANCH 

YES. SET REVERSE IN THE MODIFIER '^ELD 

IS IT A SERIOUS EXCEPTION CONDITION 7 
NO. BRANCH 

YES. SET CLEAR SERIOUS EXCEPTION 
CLEAR SERIOUS EXCEPTION FLAG 

PUT THE COMMAND PRIMITIVE INTO Rl 



ADJUST FOR THE CASE STATEMENT 
ARE UE IN THE RANGE ? 
YES. KEEP GOING 
NO. HANDLE AN ILLEGAL COMMAND 
s SELECT 



i 
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COfiriA»«0 STUTFER 





OP ASA A 


025032 








. WORD 






025106 








iuORO 






025162 








.UORO 




024566 


025210 








.WORD 


3469 


024570 


C25246 








iuDRO 


3470 


024572 


025266 










3471 


024574 


025324 








.WORD 


3472 


024576 


025422 








. WORD 


3473 


024600 


025520 








!wORD 


3474 


024602 


025616 








.WORD 


3475 


024604 


025622 








.WORD 


3476 


024606 


025654 








.WORD 


3477 


024610 


025714 








.WORD 


3478 


024612 


025742 








.WORD 


3479 














3480 


024614 


000137 


026140 




NULL : 


JMP 


3461 














3482 


024620 


012761 


000041 


000010 


READ: 


MOV 


3483 


024626 


012737 


000034 


0107S0 




HOV 


3484 


024634 


C52761 


000400 


000012 




BIS 


3485 


024642 


005737 


003564 






TST 


3486 


024646 


001403 








BEQ 


3467 


024650 


042761 


000400 


000012 




BIG 


3488 


024656 


000137 


026056 




It: 


JMP 


3489 














3490 


024662 


012761 


000042 


000010 


WRITE: 


MOV 


3491 


024670 


012737 


000034 


010750 




MOV 


3492 


024676 


052761 


000400 


000012 




BIS 


3493 


024704 


005737 


003564 






TST 


S494 


024710 


001403 








BEQ 


3495 


024712 


042761 


000400 


000012 




BIC 


3496 


024720 


000137 


026056 




It: 


JMP 


5497 














3498 


024 7?4 


012761 


000040 


000010 


CHOOAT : 


MOV 


3499 


024732 


012737 


000034 


010750 




MOV 


3500 


024740 


000137 


026056 






JMP 


3501 














3502 


024744 


012761 


000020 


000010 


ACCESS: 


MOV 


3503 


024752 


012737 


000020 


010750 




MOV 


3504 


024760 


000137 


026110 






JMP 


3505 














3*C6 


024764 


012761 


000045 


000010 


SPCREC: 


MOV 


3'j07 


024772 


005061 


000020 






CLR 


3soa 


024776 


005061 


000022 






CLR 


3509 


025002 


032737 


000002 


003710 




BIT 


3510 


025010 


001403 








BEQ 


3511 


02501? 


052761 


000200 


000C12 




BIS 


3512 


025020 


012737 


000024 


010750 


70* : 


MOV 


3513 


025026 


000137 


0<>6110 






JMP 


3514 














3515 


025032 


012761 


000045 


000010 


SKPTMK: 


MOV 


3516 


025040 


016161 


000014 


000020 




MOV 


3517 


025046 


005061 


000022 






CLR 


3516 


025052 


005061 


000014 






CLR 


3519 


025056 


032737 


000002 


003710 




BIT 


3520 


025064 


001403 








BEQ 


3521 


025066 


052'»61 


000200 


000012 




BIS 
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SEQ 



SKP . »1K 

spcoej 

WTAPMK 

ERASE 

ERASGP 

AVALAB 

ONLINE 

SUNCHR 

REWIND 

INIT 

ABOR 

GCMDST 

GUNSTA 

SCNTCH 

COMEXI 

»0P.R0.P.0PCDCR1) 

«34.PCKSIZ 

♦MD.SER.P.MODCRl) 

ARETRY 

It 

♦MD.SER.P.MOOCRl) 
BUFOSC 

*QP WR.P.OPCDCRl) 

♦34.PCKSIZ 

<K10.SER.P.M0DCR1) 

ARETRY 

It 

♦MD.SER.P.MOOCRl) 
BUFOSC 

♦OP.CMP.P.OPCO(Rl) 
♦34.PCKSIZ 

BUFOSC 

*0P.ACC,P.0PC0(R1) 

♦20.PCKSIZ 

SUPRES 

♦OP.REP.P.OPCO(Rl) 

P.TMGCCRIJ 

P,TriGC*2(Rl) 

#E0TBIT.R8 

70 1 

«MD.0LE,P.M00(R1) 

♦24,PCKSIZ 

SUPRES 

♦QP.REP.P.OPCO(Rl) 

P.BCNTCRD.P.TMGCCRl) 

P,TriGC»2(Rl) 

P.BCNT(Rl) 

«E0TBIT.R8 

1001 

♦MD.DLE.P.MODCRl) 



:EXIT 

:PUT THE READ OPCODE INTO THE PACKET 

J PUT THE PACKET SIZE INTO THE PACKET 

:DISALLOW AUTO RETRIES 

:ARE WE DOING AUTO RETRIES 7 

:N0, GET OUT 

i ALLOW AUTO RETRIES 

:GOTO THE BUFFER DESCRIPTOR ROUTINE 

;PUT THE WRITE OPCODE INTO THE PACKET 

jPUT THE PACKET SIZE INTO THE PACKET 

: DISALLOW AUTO RETRIES 

sARE WE DOING AUTO RETRIES 7 

iNO, GET OUT 

: ALLOW AUTO RETRIES 

jGOTO THE BUFFER DESCRIPTOR ROUTINE 

{PUT COMPARE HOST DATA OPCODE IN PACKET 
:PUT THE PACKET SIZE INTO THE PACKET 
jGOTO THE BUFFER DESCRIPTOR ROUTINE 

;PUT THE ACCESS OPCODE INTO THE PACKET 
jPUT THE PACKET SIZE INTO THE PACKET 
:GOTC THE SUPPRESS ROUTINE 

jPUT REPOSITION OPCODE INTO THE PACKET 

J CLEAR THE TAPE MARK COUNT 

: CLEAR THE UPPER WORD 

;IS THE DETECT LEOT BIT SET ? 

t NO. CONTINUE 

:YES. SET DETECT LEOT IN THE MOOlFIER 
J PUT THE PACKET SIZE INTO THE PACKET 
sGOTO THE SUPPRESS ROUTINE 

jPUT THE REPOSITION OPCODE IN PACKET 

:PUT THE TAPE MARK COUNT IN PACKET 

! CLEAR THE TAPE MARK FIELD 

J CLEAR THE UPPER WORD 

:IS THE DETECT LEOT BIT SET ? 

: NO. CONTINUE 

;YES. SET DETECT LEOT IN THE MODIFIER 
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SEQ 



3522 
3523 
3524 
3525 
3526 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3536 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3546 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 



025074 
025102 

025106 
025114 
025122 
025126 
025132 
025140 
025142 
025150 
025156 

025162 
025170 
025176 
025204 

0?5210 
025216 
025224 
025226 
025234 
025242 

025246 
025254 
025262 

025266 
025274 
025302 
025304 
025312 
025320 

025324 
025332 
025336 
025342 
025346 
025352 
025356 
025362 
025366 
025372 
025376 
025404 
02541C* 
035416 

025422 
025430 
025434 
025440 
025444 
025450 



012737 
000137 

012761 
052761 
005061 
005061 
032764 
001403 
012761 
012737 
000137 

012761 
052761 
012737 
000137 

012761 
C22737 
001403 
052761 
012737 
000137 

012761 
012737 
000137 

012761 
022737 
001403 
052761 
012737 
000137 

012761 
005061 
005061 
005061 
005061 
005061 
005061 
005061 
005061 
005061 
013761 
005061 
012737 
000137 

012761 
005061 
005061 
005061 
005061 
005061 



000024 
026110 

000045 
000004 

000020 
000022 
000200 

000001 
000024 
026110 

000044 

020000 
000014 
026140 

000022 
000003 

000100 
000014 
026140 

000026 
000014 
026140 

000010 
000004 

000020 
000014 
026140 

00001 1 
000014 
000016 
000020 
000022 
000024 
000026 
000030 
000032 
000034 
003732 
000042 
000044 
026 MO 

000012 
000014 
000016 
000020 
000022 
000024 



010750 



000010 
000012 



000026 

000014 
010750 



000010 
000012 
010750 



000010 
003710 

000012 
010750 



000010 
010750 



000010 
003710 

000012 
010750 



000010 



100«: 
SPCOBJ: 



II: 

UTAPMK: 

ERASE: 

20(: 
ERASGP: 

AVALAB : 

10«: 
ONLINE: 



000040 
010750 

000010 SUNCHR: 



MOV •24.PCKSIZ 

jnP SUPRES 

MOV ♦OP.REP.P.OPCD(Rl) 

BIS «MD.0BC.P.M0D(R1) 

CLR P.TMGC(Rl) 

CLR P.TMGC»2(R1) 

BIT ♦RETFLG.LUNFLGCR4) 

BEQ 1* 

MOV Ol.P.BCNKRl) 

MOV #24.PCKSIZ 

JMP SUPRES 

MOV ♦OP.UTM.P.OPCD(Rl) 

BIS «MD.CSE.P.M0D(R1) 

MOV «14.PCKSIZ 

JMP COMEXI 

MOV «OP.ERS.P.OPCD(R1) 

CMP #IMMBIT.R8 

BEQ 20 « 

BIS ♦MD.IMM.P.MOO(Rl) 

MOV #14.PCKSIZ 

JMP COMEXI 

MOV «0P.ERG.P.0PCD(R1) 

MOV «14,PCKSIZ 

JMP COMEXI 

MOV ♦OP.AVL.P.OPCD(Rl) 

CMP AUNLBIT.RB 

BEQ 101 

BIS •MD.UNL.P.MOD(Rl) 

MOV «14.PCKSIZ 

JMP COMEXI 

MOV WP.ONL.P.OPCDCRl) 

CLR P.UNFL-2(R1) 

CLR P.UNFLCRl) 

CLR P.UNFL»2(R1) 

CLR P.UNFL*4(R1) 

CLR P.UNFL»6(R1) 

CLR P.UNFL*10(R1) 

CLR P.UNFL*12(R1) 

CLR P.UNFL*14(R1) 

CLR P.DVPM(Rl) 

MOV FORMAT. P. FORM(Rl) 

CLR P.SPED(Rl) 

MOV *44.PCKSIZ 

JMP COMEXI 

MOV #0P.SUC.P.0PC0CR1) 

CLR P.UNFL 2(R1) 

CLR P.UNFL(Rl) 

CLR P.UNFL»2(R1) 

CLR P.UNFL*4(R1) 

CLR P.UNFL»6CR1) 



.PUT THE PACKET SIZE INTO THE PACKET 
GOTO THE SUPPRESS ROUTINE 

PUT THE REPOSITION OPCODE IN PACKET 

SET THE OBJECT BIT IN THE MODIFIER 

CLEAR THE TAPE MARK FIELD 

CLEAR THE UPPER WORD 

ARE UE DOING RETRIES ? 

BRANCH IF NOT 

SET UP TO DO 1 RECORD 

PUT THE PACKET SIZE INTO THE PACKET 

GOTO THE SUPPRESS ROUTINE 

PUT URITE TAPE MARK OPCODE IN PACKET 
YES. SET CLEAR SERIOUS EXCEPTION 
PUT THE PACKET SIZE INTO THE PACKET 

sGOTO THE EXIT 

sPUT THE ERASE OPCODE INTO THE PACKET 
J IS THE IMMEDIATE BIT SET ? 
: NO. CONTINUE 

jYES. SET IMMEDIATE IN THE MODIFIER 
sPUT THE PACKET SIZE INTO THE PACKET 
:GOTC THE EXIT 

:PUT ERASE GAP OPCODE INTO THE PACKET 
.•PUT THE PACKET SIZE INTO THE PACKET 
tGOTO THE EXIT 

PUT AVAILABLE OPCODE INTO THE PACKET 
IS THE UNLOAD BIT SET ? 
NO. CONTINUE 

YES. SET UNLOAD IN THE MODIFIER FIELD 
PUT THE PACKET SIZE INTO THE PACKET 
GOTO THE EXIT 

PUT THE ONLINE OPCODE INTO THE PACKET 
CLEAR THE UNIT FLAG FIELD 



CLEAR THE DEVICE PARAMETER FIELD 
PUT THE TAPE FORMAT INTO THE PACKET 
CLEAR THE SPEED FIELD 
PUT THE PACKET SIZE INTO THE PACKET 
;60T0 THE EXIT 

SET UNIT CHARA. OPCODE INTO THE PACKET 
CLEAR THE UNIT FLAG FIELD 
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COrtlAND STUFFER 



3579 
3550 
3501 
3562 
35a3 
SS84 
3565 
3566 
3567 
3566 
3569 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3596 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3606 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3616 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3626 
3629 
3630 
3631 
3632 
3633 
3634 
3635 



025454 
025460 
025464 
025470 
025474 
025302 
025506 
025514 

025520 
025526 
025534 
025542 
025544 
025552 
025556 
025562 
025566 
025572 
025600 
025604 
025612 



025622 
025630 
025636 
025642 
025650 

025654 
025662 
025670 
025674 

025702 
025710 

025714 
025722 
025730 
025736 

025742 
025750 
025754 
025762 
025770 
025776 
026002 
026006 
026012 
026016 
026022 
026026 
026032 
026040 



005061 
005061 
005061 
005061 
013761 
005061 
012737 
000137 

012761 
052761 
022737 
001003 
052761 
005061 
005061 
005061 
005061 
012737 
C05064 
042764 
000137 



012761 
016561 
005061 
012737 
000137 

012761 
016561 
005061 
012737 
042737 
000137 

012761 
042761 
012737 
000137 

012761 
005061 
012761 
013761 
012761 
005061 
005061 
005061 
005061 
005061 
005061 
C0S061 
012737 
000137 



000026 
000030 
000032 
000034 
003732 
000042 
000044 
026140 

000045 
020002 
000003 

000100 
000020 
000022 
000014 
000016 
000024 
000006 
000010 
026140 



025616 000137 026162 



000001 
000000 
000016 
000020 
026140 

000002 
000000 
000016 
000020 
000020 
026140 

000003 
020000 
000014 
026140 

000004 
000004 
000000 
010746 
000000 
000022 
000024 
000026 
000030 
000032 
000034 
000036 
000040 
026140 



000040 
010750 



000010 
000012 
003710 

000012 



010750 
000026 



000010 
000014 

010750 



000010 
000014 

010750 
003674 



000010 
000012 
010750 



REWIND: 



601 i 



INIT: 
ABOR: 



GCnOST: 



GUNSTAi 



000010 SCNTCH: 

000014 
000016 
000020 



010750 51 : 



CLR 
CLR 
CLR 
CLR 
MOV 
CLR 

nov 

JMP 

MOV 
BIS 
CMP 
BNE 
BIS 
CLR 
CLR 
CLR 
CLR 
MOV 
CLR 
BIC 
JMP 

JMP 

MOV 
MOV 
CLR 
MOV 
JMP 

MOV 
MOV 
CLR 
MOV 
BIC 
JMP 

MOV 
BIC 
MOV 
JMP 

MOV 
CLR 
MOV 
MOV 
MOV 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
MOV 
JMP 
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SEQ 



P.UNFL*10(R1) 

P.UNFL»12(R1) 

P.UNFL»14(R1) 

P.DVPM(Rl) 

FORMAT. P. FORM(Rl) 

P.SPED(Rl) 

«44.PCKSIZ 

COMEXI 

♦OP.REP.P.OPCO(Rl) 

«M0 . CSE !M0 . RUO . P . nODC Rl 

*IMMBIT,R8 

601 

♦MD.IMM.P.MOO(Rl) 

P.TMGC(Rl) 

P.TMGC»2(R1) 

P.BCNTCRl) 

P.BCNT«2(R1) 

•24.PCKSIZ 

CM0SEQ(R4) 

«E0TPR.LUNFLG(R4) 

COMEXI 

EXIT 

*0P.AB0.P.0PC0(R1) 

P.CRF(RS).P.0TRF(R1) 

P.0TRF»2(R1) 

♦20.PCKSIZ 

COMEXI 

♦OP.GCS.t-.TPCOCRl) 

P.CRF(R5).P.0TRF(R1) 

P.0TRF»2(R1) 

♦20.PCKSIZ 

•GCSCFL.PCFLAG 

COMEXI 

♦OP.GUS.P.OPCD(Rl) 
♦MD.CSE.P.MOD(Rl) 
♦14.PCKSIZ 
COMEXI 

♦OP.SCC.P.OPCO(Rl) 

P.UNITCRl) 

«MSCPVR.P.VRSN(R1) 

CNTFLG.P.CNTF(Rl) 

#HSTIM0,P.HTM0(R1) 

P.HrM0*2(Rl) 

P.TIMECRl) 

?.TIME»2(R1) 

P.TIME»4(R1) 

P.TIME»6(R1) 

P.CTPMCRl) 

P.CTW1»2CR1) 

♦40.PCKSIZ 

COMEXI 



: CLEAR THE DEVICE PARAMETERS FIELD 
:PUT THE TAPE FORMAT INTO THE PACKET 
(CLEAR THE SPEED FIELD 
(PUT THE PACKET SIZE INTO THE PACKFT 
sGOTO THE EXIT 

(PUT THE REPOSTITION OPCODE INTO PACKET 
) ;SET THE REWIND MODIFIER 
J IS THE IMMEDIATE BIT SET 
I NO. CONTINUE 

.YES. SET THE IMMEDIATE MODIFIER 
; CLEAR THE TAPE MARK 

COUNT FIELD 
: CLEAR THE BYTE COUNT 
i FIELD 

I PUT THE PACKET SIZE INTO THE PACKET 
(RESET THE COMMAND SEQUENCE NUMBER 
s CLEAT THE EOT PRINT FLAG 
iGOTO THE EXIT 

iEXIT 

:PUT THE ABORT OPCODE INTO THE PACKET 
{PUT THE OLD CRN INTO THE PACKET 
(CLEAR 1»E UPPER WORD 
(PUT THE PACKET SIZE INTO THE PACKET 
(GOTO THE EXIT 

(PUT GCS OPCODE INTO THE PACKET 

(PUT THE OLD CRN INTO THE PACKET 

(CLEAR THE UPPER WORD 

(PUT THE PACKET SIZE INTO THE PACKET 

(CLEAR GCS COMMAND MODE ? 

(GOTO THE EXIT 

(PUT THE GUS OPCODE INTO THE PACKET 
(CLEAR CLEAR SERIOUS EXCEPTION MODIFIER 
(PUT THE PACKET SIZE INTO THE PACKET 
(GOTO THE EXIT 

(PUT THE sec a>CODE INTO THE PACKET 
(CLEAR THE UNIT NUMBER 
(PUT THE MSCP VERSION INTO THE PACKET 
(PUT CONTROLLER FLAGS INTO THE PmCKET 
(PUT THE HOST TIMEOUT INTO THE PACKET 
(CLEAR THE TIME FIELD 



(CLEAR THE FIROT WORD 

(CLEAR THE SECOND WORD 

(PUT THE PACKET SIZE INTO THE PACKET 

(GOTO THE EXIT 
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COfVIANO 


STUFFtR 






























5637 


026044 


052737 


AAAAA7 

OOOOO f 


Old 1 32 


iLtnu : 


DTC 
Dl9 


ATI 1 TOCTAT 


3636 


0260S2 


UU0137 


026162 






IMD 


CVTT 


3639 
3640 


0260'A 


O153ol 


AAAA1 9 

000012 


AAAAOA 
000020 


BUr DSC : 


nov 


BUr Qrr vnd i tK , DUrr vNx / 


3641 


026064 




AAAAOO 

000022 






D 


r , Di^r »^vnx ^ 


3642 


w26w rv 


1 


I/UU024 








K , Dl^r Kx / 


3643 






OOVOcO 








D DltfTCAiC^DI 

r .DUrr ♦oiNx ^ 


36## 


026100 




AAAAVn 
0W09U 






n D 


f.DUrr ^XvvnX/ 


36#3 


02610# 




0W032 








D niiTF^iorDi'x 
r.DUrr »xcvnx/ 


















» 


A^tfLI 1 A 
WcDllW 


XV3 r O r 


W2cc4 




CI BBPC • 


TCTR 






020114 










DNC 


Xw3f 




A9il1 1& 
U2D110 


V3c rOl 


AA| AAA 


WWlc 




BTC 


AMft cpr p Hnnrpi ^ 

VT1U ■ 9Cw • r , nuU^nX / 




W20124 










1 d 1 D 


cppocr 




« VA 












L< *CaX 




vsDld2 


V3c ' ox 




vWvle 




RTC 


AHn CFP p Mnnf Pi ^ 


S6S3 
















36S4 


026140 


062701 


000050 




COMEXZ: 


ADO 


MCBSTP.Rl 


S6SS 


026144 


C22701 


004216 






CMP 


«0CBEND.R1 


3656 


026150 


001002 








BNE 


1101 


5657 


026152 


012701 


003756 






nov 


•DcnoeF.Ri 


S6S8 


026156 


010164 


000014 




not: 


nov 


R1.CNUSAV(R4) 


3659 
















3660 


026162 








EXIT: 


POP 


<R2.Rl> 


9661 


026166 


000240 








NOP 


sTEnP 


3662 


026170 


000207 








RTS 


PC 



SEQ 



J SET ILLCMD IN THE I/O STATUS 
:G0T0 THE ERROR EXIT 

iPUT THE BUFFER ADDRESS INTO THE PACKET 
{CLEAR THE REST OF THE BUFFER FIELD 



i 

lis SUPPRESS ERROR CORRECTION ENABLED 7 
iNO 

8 YES. SET SEC MODIFIER 

:IS SUPPRESS ERROR RECOVERY ENABLED ? 

{NO 

lYES. SET THE SER HODIFIER 

{SET THE POINTER TO THE NEXT SLOT 
(ARE UE AT THE END OF THE RING ? 
iNO. EXIT 

I YES. SET THE POINTER TO START OF RING 
:SAVE THE POINTER 

i RESTORE Rl 

•.RETURN 
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3667 
S669 
36«9 
56 70 
3671 
3672 
5673 
3674 
5675 
36/6 
5677 
5676 

5679 026172 
3660 026172 

5661 026200 

5662 026204 
5685 026210 
5664 026214 
56»S 026216 
36M 026222 
5667 

5666 026224 
S6«« 026250 
S690 026256 
^691 026244 

5692 026292 

5693 026254 
3694 026262 

5695 026270 

5696 026274 

5697 026502 
3696 026506 
S699 026S10 
S700 

5701 026516 

5702 026522 

5705 026526 
3704 026350 
S70S 

5706 026334 
3707 026340 
3706 02«346 
5709 0263S0 
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.SBTTL PORT DRIVER TRANShIT 

> 

J Port Oriw«r TraoMit 



SCO 91 



: Called By 
; Inputs 



I Register Inputs: 
iRsgistsrs Used : 

; 
i 

PRTDRV: 



r ing. 























Hnv 




016401 


000012 






nov 


CnOSSVCR4).Rl 


C22702 


005756 






CMP 


*DCnOBF,R2 


001403 








BEQ 


11 


162702 


000050 






SUB 


•0C6STP.R2 


000402 








BR 


51 


06270c 


000170 




11: 


ADD 


40CB3SP.R2 


113762 


010755 


177776 


51: 


NOVB 


CR0LIH.CRD(R2) 


112762 


000001 


177777 




novB 


«1,C0NI0(R2) 


015762 


010750 


177774 




nov 


PCKSIZ.nSGLENCR2) 


010211 








nov 


R2.CR1) 


052761 


100000 


000002 




BIS 


•OUN.HIAOOR(Rl) 


042761 


040000 


000002 




BIC 


6FLAG.HIA00RCR1) 


005774 


000000 






TST 


8TKIP(R4) 


017437 


000002 


010752 




nov 


8TKSA(R4),SAERR 


005757 


010752 






TST 


SAERR 


100003 








BPL 


lOS 


052737 


000005 


010752 




BIS 


•lOPORE.IOSTAT 


062701 


000004 




101: 


ADO 


«0SPSTP.R1 


026401 


000222 






cnp 


UCDENDCR4).R1 


001002 








BNE 


151 


016401 


000220 






nov 


UC0SRG(R4).R1 


010164 


000012 




151: 


nov 


Rl.CnOSSVCR4) 










POP 


<R1.R2.R5> 


000240 








NOP 


jTEMP 


000207 








RTS 


PC 



CLSOVR 

CnOSSV - Cownd descriptor ring pointer. 

OCDSAV - Driver coMSsnd ring pointer. 

CRDLin - Nuaber of open slots in the driver cosssnd 

PCKSIZ - Length in bytes of the co— and packet. 

R4 - Lun block pointer. 

R2 - Pointer to driver co— ■•>d ring. 

Rl Pointer to driver co— and descriptor ring. 



I SAVE R3. R2 AND Rl 

(POINT R2 AT NEU COMnANO BUFFER SLOT 
>LET Rl POINT TO THE COnnAND DESCRIPTOR 
sis R2 AT TOP OF DRIVER COnHAND Ring 
;YES. BRANCH 

3 NO. SUBTRACT DCBSTP FROM R2 

i 

(YES. ADO DC65SP TO R2 

;PUT THE CREDIT LINIT INTO THE PACKET 

,PUT THE CONNECTION TYPE INTO THE PACKET 

:PUT THE PACKET SIZE INTO THE PACKET 

tPUT THE PACKET ADDRESS INTO THE DESCRIPTOR 

I SET THE OWNERSHIP BIT OF THE DESCRIPTOR 

i CLEAR TO DESCRIPTOR FLAG BIT 

{READ THE IP REGISTER 

(SAVE THE SA FOR THE ERROR PRINTOUT 

(READ THE SA REGISTER 

I BRANCH IF NO ERRORS 

(SET PORT DETECTED ERROR IN I/C STATUS 

; ADVANCE THE DESCRIPTOR POINTED 

{ARE UE AT END OF THE DESCRIPTOR RING 

tNO BRANCH 

I YES. SET POINTER TO START OF THE RING 

I SAVE THE POINTER 

: RESTORE Rl. R2 AND R5 

t RETURN 
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3711 








3712 








3713 








3714 








3715 








3716 








3717 








3718 








3719 








3720 








3721 








3722 








3723 


026352 






3724 


026352 






3725 


026354 


016401 


000214 


3726 


026360 


017437 


000002 


3727 


026366 


005737 


010752 


372a 


026372 


100003 




3729 


026374 


052737 


000003 


3730 








3731 


026402 


006364 


000010 


3732 


026406 


032737 


000040 


3733 


026414 


001403 




3734 


026416 


005737 


003S72 


3735 


026422 


001012 




3736 








3737 


026424 


032761 


100000 


3738 


026432 


001006 




3739 


026434 


005237 


003572 


3740 


026440 


052764 


000001 


3741 


026446 


000403 




3742 








3743 


026450 


042764 


000001 


3744 


026456 


062701 


000004 


3745 


026462 


026401 


000216 


3746 


026466 


001345 




3747 


026470 






3748 


026472 


000240 




3749 


026474 


000207 
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S8TTL PORT DRIVER RECEI\E 
****************************** 

Port Driver Receive 



SEQ 



Called By 
Inputs 

Outputs 

{Registers Used 



CDRECV 

URDSRG - RESPONSE descriptor ring. 
UCOSRG - Coimnand descriptor ring. 
RESP - Number of new RESPONSES. 
Rl RESPONSE descriptor ring pointer. 



PDRECV: 



010752 
010732 
003674 

000002 
000010 
000010 



It: 



2t: 



5$: 
10»: 



PUSH <R1> 

MOV UR0SRG(R4),R1 

MOV STKSA(R4),SAERR 

TST SAERR 

BPl. 1» 

BIS «0PDRE.I0STAT 

ASL SLTUSE(R4) 

BIT #GCSRFL.PCFLAG 

BEQ 2t 

TST RESP 

BNE 5t 

BIT «0UN.HIAD0R(R1) 

BNE SI 

INC RESP 

BIS «eiT0.SLTUSE(R4) 

BR lot 

BIC «eiT0,SLTUSE(R4) 

ADD WSPSTP.Rl 

CMP UR0EN0(R4),R1 

BNE 1» 

POP <R1> 

NOP : TEMP 

RTS PC 



■SAVE Rl 

isET Rl TO THE RESPONSE DESCRIPTOR 
J SAVE THE SA FOR THE ERROR PRINTOUT 
jREAD THE SA REGISTER 
i BRANCH IF NO ERRORS 

jSET PORT DETECTED ERROR IN I/O STATUS 

J SHIFT BITMAP 

;ARE UE IN GCS MODE ? 

:N0. DO ALL RESPONSES 

iHAVE UE GOTTEN A RESPONSE ? 

jYES. GCS MODE ALLOU ONLY 1 RESPONSE 

ilS THE SLOT SET TO US ? 
iNO , BRANCH 

5 ADD 1 TO THE RESPONSE COUNT 
iSfcT SLOT IN-USE 



:ELSE CLEAR THIS SLOT IN-USE 
:SET THE POINTER TO THE NEXT SLOT 
jARE UE AT THE END OF THE RING ? 
:N0, .<EEP GOING TILL UE GET THEM ALL 
:RESTORE Rl 

J RETURN 



GLOBAL AREAS MACRO rOS.02 Monday 26 Aufl-8S 09:54 Pag* 46 
PORT DRIVER CLEAR 

.SBTTL PORT 0RIVE9 CLEAR 



SEQ 



5751 
















3755 








5754 








5755 








5756 








5757 








3759 








3759 








3760 








3761 


026476 






3762 


026476 






5763 


026502 


016401 


000216 


3764 


026506 


016402 


000214 


3765 


026512 


162702 


000004 


3766 








3767 


026516 


162701 


000004 


3760 


026522 


020201 




3769 


026524 


001410 




3770 


026526 


000241 




3771 


026550 


006064 


000010 


3772 


026534 


103003 




3773 


026536 


012761 


100000 


3774 








3775 


026544 


000764 




5776 


026546 






5777 


026552 


000240 
000207 




5778 


026554 




3779 









000002 



;Port Driver Clear 

': Called By 
sRcgistcr Inputs: 
.■Registers Used : 



PRTCLR: 



1«: 



CORECV 

R4 Lun block pointer. 

Rl Current location in t'le RESPONSE descri|,tor nng. 



iSAVE Rl AN J R2 

Rl • END or RESPONSE OESCRI>'TOR niNG 
R2 • RESPONSE DESCRIPTOR RING 
BACK UP POINTER BY A LCNGUORO 

BACK UP POINTER BY A LONGUORO 
BACKED UP PAST START OF RING? 

YES - SO GET OUT 
CLEAR THE CARRY 
MOVE BITO TO CARY BIT 
BRANCH IF SLOT NOT USED 
GIVE SLOT BACK TO PORT 



5»: 
20*: 



PUSH 


<R1.R2> 


MOV 


UR0EN0(R4).R1 


MOV 


URDSRG(R4> ^2 


SUB 


♦4.R2 


SUB 


•4.R1 


CMP 


R2.R1 


BEQ 


20 « 


CLC 




ROR 


SLTUSE(R4) 


6CC 


5» 


MOV 


«OUN.HIAODR(R1} 


BR 


I* 


POP 


<R2.R1> 


NOP 


:TEMP 


RTS 


PC 



J LOOK FOR MORE 

: RESTORE R2 AND Rl 

{RETURN 
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SEQ 



S781 






3782 






3783 






3784 






3785 






3786 






3787 






3788 






3789 






3790 






3791 






3792 






3793 


026556 




3794 


026556 




3795 


02'>566 


010174 


3796 


026572 


016437 


3797 


026600 


012703 


3798 


026604 


012701 


3799 






3800 


026610 


C12737 


3801 


026616 


005002 


3602 






3803 


026620 


005202 


3804 


026622 


/\A4 AAV 

001003 


3805 


026624 


/\AC V V "7 

005337 


3806 


026630 


A A 4 ^ ^ 7 

0014#7 


3807 






3808 


026632 


A V 7 4 A 4 

037401 


3809 


026636 


001770 


3810 


026640 


A 4 lA V ^ 

017437 


3811 


026646 


AAC"?V7 

005 ^37 


3812 


026652 


4 AA^ T£ 

1 004 3o 


3813 


026654 


A 4 W4 

012374 


3814 


026660 


006301 


3815 


026662 


100403 


3816 


026664 


052701 


3817 


026670 


000747 


3818 






3819 


026672 


016402 


3820 


026676 


016403 


3821 


026702 


010322 


3822 


026704 


005022 


3823 


026706 


062703 


3824 


026712 


A^^ AAV 

026403 


3825 


026716 


001371 








3827 


026720 


016402 


3828 


026724 


012703 


3829 


0267^0 


010322 


3830 


026732 


005022 


3631 


026734 


062703 


3832 


026740 


022703 


3833 


026744 


001371 


3834 


026746 


000403 


3835 






3836 


026750 


012737 


3637 







SBTTL PORT DRIVER INITIALIZATION 



Port Dr ■ ver Initialization 



Called By 
Register Inputs: 
Registers Used ; 



PRTINT: 



CLSDRV 

R4 - Lun block pointer. 

Rl - Current in't step in process 

R2 - Used by the watchdog timer 

R3 Initialization data table pointer 









PUSH 


<R1.R2.R3.R5> 








nu V 




000214 


r 




MOU 


iiRn<;Rr;rRA tmttri *9 


UcO f to 






MfkU 


ATNTTRI R'^ 








tihi/ 








1 anp • 












CLR 


R2 






Tl OOP • 


INC 


R2 








BNE 


21 










CNTHl 








BEQ 


TKERR 








BIT 


aTKSA(R4) Rl 








BEQ 


ILOOP 


000002 


010752 




MOV 


STKSA(R4).SAERR 


010752 






TST 


SAERR 








BMI 


TKERR 


000002 




3*: 


MOV 


(R3)*.8TKSACR4) 








ASL 


Rl 








BMI 


41 


100000 






BIS 


•ERR.Rl 








BR 


LOOP 


000214 




4$: 


MOV 


URDSRG(R4).R2 


000210 






MOV 


URSPBF(R4),R3 




5t: 


MOV 


R3.(R2)* 








CLR 


CR2)» 


000104 






ADO 


#0RBSTP,R3 


000212 






CMP 


URBEND(R4).R3 








BNE 


5» 


000220 






MOV 


UCDSRG(R4).R2 


003756 






MOV 


«DCMDBF.R3 






10*: 


MOV 


RS.(R2)* 








CLR 


(R2)* 


000050 






ADO 


<^0CBSTP.R3 


004216 






CMP 


»DCBEND.R3 








BNE 


10* 








BR 


lOONE 


000006 


010732 


TKERR: 


MOV 


MNTERR.IOSTAT 



SAVE Rl. R2, R3 AND R5 

INITIALIZE THE DRIVE 

PUT RESP DESCRIPTOR ADDRESS IN TABLE 

PUT THE TABLE ADDRESS INTO R3 

SET UP TO BEGIN AT STEP 1 

J SET UP THE TIME OUT COUNTER 
: CLEAR R2 

INCREMENT HI TIME OUT VALUE ? 
IF NOT. BRANCH 
ELSE. INCREMENT HI TIMEOUT 
GET OUT. UE'VE TIMED OUT 

TEST FOR STEP BIT FROM DRIVE 
LOOP UNTIL SOMETHING SETS 
SAVE THE SA FOR THE ERROR PRINTOUT 
CHECK FOR ERROR 
J GET OUT ON ERROR 

WRITE UORD FROM TABLE TO CONTROLLER 

SHIFT TO NEXT STEP 

GET OUT AFTER FOURTH STEP 

ALSO CHECK FOR ERROR BIT 

IF NOT AT LAST STEP LOOP 

PUT THE RESPONSE DESCRIPTOR ADO IN R2 

PUT THE RESPONSE BUFFER ADDRESS IN R3 

PUT THE BUFF ADD IN THE DESCRIPTOR 

CLEAR THE NEXT UORD 

STEP TO THE NEXT BUFFER SLOT 

ARE UE AT THE END OF THE BUFFER ? 

NO. KEEP GOING 

PUT THE CMO DESCRIPTOR ADDRESS xN R2 

PUT THE CMD BUFFER ADDRESS IN R3 

PUT THE BUFF ADO IN THE DESCRIPTOR 

CLEAR THE NEXT UORD 

STEP TO THE NEXT BUFFER SLOT 

ARE UE AT THE END OF THE BUFFER ? 

NO. KEEP GOING 

ALL DONE 

;SET UP FOR A FATAL ERROR 
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3838 026756 005337 

3839 026762 

3840 026772 000240 

3841 026774 000207 
3642 

3843 
3844 

3845 026776 111400 

3846 027000 000000 

3847 027002 000000 

3848 027004 000001 
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I ION 
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IDONE : DEC RSPCNT 

POP <R5.R3.R2.R1> 
NOP i TEMP 

RTS PC 

jINIT DATA TABLE 

INTTBL: .WORD TKINIT 

. WORD 0 

. WORD 0 

.UORD GO 



SEQ 95 



;RESTORE THE REGISTERS 
: RE TURN 



GLOBAL AREAS HACRO Y0S.02 
GCS RESPONSE HANDLER 



3SS0 
3051 
3552 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
386C 
3861 

3862 027006 

3863 027006 023761 

3864 027014 101017 

3865 027016 042737 

3866 027024 005037 

3867 027030 005037 

3868 027034 112737 

3869 027042 C047S7 

3870 027046 000240 

3871 027050 000137 
3872 

3873 027054 

3874 027060 016401 

3875 027064 162701 

3876 027070 016402 

3877 027074 162702 

3878 027100 022701 

3879 027104 001407 
3650 027106 022701 

3881 027112 001434 

3882 027114 022701 

3883 027120 001461 

3884 027122 000510 
3885 

3886 027124 022702 

3887 027130 001004 

3888 027132 004737 

3889 027136 000137 

3890 027142 022702 
389^ 027146 001006 

3892 027150 004737 

3893 027154 004737 

3894 027160 000137 

3895 027164 004737 

3896 027170 004737 

3897 027174 004737 
38'?8 027200 000137 
3899 

3900 027204 022702 

3901 027210 001004 

3902 027212 004737 

3903 027216 000137 

3904 027222 022702 

3905 027226 001006 

3906 027230 004737 
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SBTTL GCS RESPONSE HANDLER 



010734 000020 

000040 0036 74 

003572 

003556 

000002 010732 
034022 

027572 



000016 
000004 
000014 
000004 
003752 

004022 

004072 



004072 

027576 
027420 
004142 

027620 
027576 
027420 
027642 
027620 
027576 
0.i7420 

004142 

027620 
027420 
003752 

027642 



GCS RESPONSE HANDLER 



Called By 
Calls To 
Register Inputs 

Register Inputs 



GCSHOL : : 



51: 



OLOl: 



51: 



101 1 



0LD2: 



5«: 



LHK 


PMCTCU D PMCT^Ol ^ 


OUT 

brix 


c * 


OTP 

OIL 






Dp CP 


n D 

L.LK 




nuvo 




uon 


or i^noriMP 






IMO 








flOV 


C0LSAV(R4}.R1 


SUB 


*4.R1 


nu V 








^1 IT" 








Clip 




RPQ 


0L02 


CMP 




BEQ 


GL03 


BR 


0L04 


CMP 


#CM0BF3.R2 


BNE 


5t 


JSR 


PC.EXC1A2 


JMP 


ADJUST 


CMP 


#CM06r4.R2 


BNE 


lot 


JSR 


PC.EXC2A3 


JSR 


PC.EXC1A2 


JMP 


ADJUST 


JSR 


PC.EXC3A4 


JSR 


PC.EXC2A3 


JSR 


PC.EXC1A2 


JMP 


ADJUST 


CMP 


«CM0BF4,R2 


BNE 


5) 


JSR 


PC.EXC2A3 


JMP 


ADJUST 


CMP 


0CMDBF1.R2 


BNE 


101 


JSR 


PC,EXCSA4 



SEQ 96 



ANY PROGRESS 7 
YES. CLKEAN UP THE MESS 
CLEAR THE GCS MODE FLAG 
TAKE OFF THE RESPONSE 
TAKE OFF THE RESPONSE 
SET HUNG CONTROLLER BIT 



:GET OUT 



jPUT THE OLD POINTER IN Rl 

! ADJUST TO INCLUDE DESCRIPTOR WORDS 

iPUT THE NEU POINTER IN R2 

: ADJUST TO INCLUDE DESCRIPTOR UORDS 

J OLD POINTER AT BFl ? 

sYES. GO HANDLE IT 

{OLD POINTER AT BF2 ? 

;YES. GO HANDLE IT 

sOLD POINTER AT BF3 ? 

jYES. GO HANDLE IT 

;N0, 60 HANDLE BF4 

iNEU POINTER AT BF3 ? 
:N0. TRY AGAIN 
jGO MOVE COMMAND 1 TO 2 
jGO ADJUST THE OLD POINTER 
iNEU POINTER AT 6F4 ? 
iNO. TRY AGAIN 
:G0 MOVE COMMAND 2 TO 3 
;G0 MOVE COMMAND 1 TO 2 
.GO ADJUST THE OLD POINTER 
iGO MOVE COMMAND 3 TO 4 
jGO MOVE COMMAND 2 TO 3 
jGO MOVE COMMAND 1 TO 2 
J GO ADJUST THE OLD POINTER 

;NEU POINTER AT BF4 ? 

iNO. TRY AGAIN 

;G0 MOVE COMMAND 2 TO 3 

sGO ADJUST THP OLD POINTER 

iNEU POINTER AT BFl ? 

iNO. TRY AGAIN 

{GO MOVE COMMAND 3 TO 4 
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3907 


027234 


004737 


027620 






JSR 


PC,EXC2A3 


3908 


027240 


000137 


027420 






JMP 


ADJUST 


3909 


027244 


004737 


027664 




101 : 


JSR 


PC .EXC4A1 


3910 


027250 


004737 


027642 






JSR 


PC,EXC3A4 


3911 


027254 


004737 


027620 






JSR 


Af^ PW/*AAV 

PC .EXC2A3 


3912 


027260 


000137 


027420 






JMP 


ADJUST 


3913 
















3914 


027264 


022702 


AA V A 

003752 




0LD3: 


CMP 


jl^mAAC4 A'^ 

*CMOBr 1 , R2 


3915 


027270 


AA • AAd 

001004 








A UP 

BNE 


5$ 


3916 


027272 


AAA 

004737 


AA^f d A 

027642 






JSR 


A A PWAVAd 

PC ,EXC3A4 


3917 


027276 


000137 


AA^d A A 

027420 






JMP 


aDjust 


3918 


027302 


022702 


004022 




5* : 


CMP 


a/*maapa a a 

0CMDBF2 , R2 


3919 


027306 


AA « AA^ 

001006 










101 


3920 


027310 


AAd ^ 

004737 


027664 






JSR 


PC,EXC4A1 


3921 


027314 


AAd ^ 

004737 


A d A 

027642 






If A 

JSR 


PC , cXC3A4 


3922 


027320 


AAA 4 V ^ 

000137 


AA^d AA 

027420 






JMP 


A A II IP T 

ADJUST 


3923 


027324 


AAA ^ V ^ 

004737 


027576 




lOi : 


JSR 


DO PW0 4 A A 

PC ,EXC1A2 


3924 


027330 


AAd ? 

004737 


A f d 

027664 






JSR 


O/* f VP Ji A 4 

rC ,cXl4A1 


392S 


027334 


AAd 

004737 


027642 






ICO 

JSR 


np f wpVAji 

PC ,cXC3A4 


3926 


027340 


AAA 4 

C00I37 


027420 






IMO 


An 11 ICT 

AO JUS T 


3927 
















3929 


027344 


022 r 02 






ULU4 ; 


TMD 

Lnr 


ArMnDco Do 


3929 


027350 


AA« AAd 

OO 1004 








Due 


3* 


3930 


027352 


AAd 

004737 


027664 






JSR 


rL , tXL4Al 


3931 


027356 


AAA 4 V ^ 

000137 


027420 






IMO 

Jnr 


An 11 IC T 


3992 


027362 


AOOTA1 

022 r02 


004072 




3* : 


cnr 


vLnUDr S,H£ 


3953 


027366 


AA 1 AA£. 
001006 








DkIC 
DNt 


1 A ft 


V A V A 

3954 


027370 


AAd ? V ^ 

004737 


027576 






ICO 

J5R 


DP CVP 1 A^ 

rL .tALln2 


3935 


A'\^ d 

027374 


AAd ^ V ? 

004737 


027664 






ICO 

JSR 


op f VPJI A f 

rLttXC4Ml 


3936 


A^^d AA 

027400 


AAA 4 

000137 


02 r 420 






IMO 


An II ICT 


3937 


A^^d AJI 

027404 


AAA "YV^ 

004 737 


02 r620 






ICD 

Jan 


DP PyPOAV 

rL • c aLcaA 


V A V A 

3938 


027410 


AAA 

004737 


02 '576 






ICD 


PC.EXC1A2 


V AV A 

3939 


027414 


004737 


027664 






ICD 


DP CVPAA1 
rLf kAL4Hl 


3940 
















VAA « 

3941 


AO^d ^A 

027420 








An II ICT . 


DAD 


^D9 D 1 % 
<K2fKl> 


VAA ^ 

3942 


027424 


AJI A^ V ? 

042737 


AAAA Jl A 

000040 


003674 




DT^ 


A/^rCDPl DPPI AP 
vuLbnr L , rLr Lnu 


S943 


027492 


A4 £ t V7 

016137 


AAAA9A 
000020 


A1 A7VA 

010734 




nuv 


D PMCTTDI ^ PMCTCU 
r . Lnb 1 ^ Kl J ( Lns 1 SV 


VA^ ^ 

3944 


027440 


AACAV^ 

005037 


003572 






f*i D 

LLK 


OCCD 
Ht br 


V A^ e 

3945 


027444 


AACAli^ 

005037 


003536 






PI D 
LLK 


uuni DD 


V AA f 

3946 


027450 


AAC Vf^d 

005364 


AAAAA£ 
000006 






UtL 


PHnccnr DA 1 
LnUbtUl K4 J 


V Ad ^ 

3947 


A^^d Cd 

027454 


Ad 7 

042737 


f AAAf^A 
100000 


A1 A7VO 

OlO r 32 




D1.L 




3948 


027462 


105237 


A4 A?CC 

010733 






TftlPD 
INLD 


PDni tm 


V Ad A 

3949 














AOPDcTD pni cauroA^ 

vULDb 1 r B LULbMVV ^ 


V ACA 

395Q 


027466 


Af 0^£.d 

062764 


AAAAC A 
000030 


VVVU16 




Ann 


V AK * 

3951 


027474 


A A A^d. d 

022764 


AAil O 4 £ 

004216 


AAAA 4 £ 

000016 




Lnr 


AnPDCun pm CAv/r da 
wULOtNU B LULbnVV n4 y 














BNE 


5$ 


3953 


027504 


012764 


003756 


000016 




MOV 


«0CM0Br.C0LSAV(R4) 


3954 
















3955 


027512 


062705 


000050 




5t: 


ADD 


«0CBSTP.R5 


3956 


027516 


022705 


004216 






CMP 


4DCBEN0.R5 


3957 


027522 


001002 








BNE 


10* 


3958 


027524 


012705 


003756 






MOV 


♦OCMDBF.RS 


3959 
















3960 


027530 


062764 


000104 


000022 


10*: 


ADO 


«DR6STP.R0LSAV(R4) 


3961 


027536 


026464 


000212 


000022 




CMP 


URBEN0(R4 } . R0LSAV(R4 ) 


3962 


027544 


001003 








BNE 


15* 


3963 


027546 


01C46-. 


000210 


000022 




MOV 


URSPBr(R4 ) .R0LSAVrR4 ) 



I 



SEO 97 



;G0 MOVE COMMAND 2 TO 3 

iGO ADJUST THE OLD POINTER 

{GO MOVE COMMAND 4 TO 1 

iGO MOVE COMMAND 3 TO 4 

:G0 MOVE COMMAND 2 TO 3 

iGO ADJUST THE OLD POINTER 

iNEW POINTER AT BFl 7 
sNO. TRY AGAIN 
iGO MOVE COMMAND 3 TO 4 
iGO ADJUST THE OLD POINTER 
I NEW POINTER AT BF2 ? 
{NO. TRY AGAIN 
iGO MOVE COMMAND 4 TO 1 
{GO MOVE COMMAND 3 TO 4 
;G0 ADJUST THE OLD POINTER 
{GO MOVE COMMAND 1 TO 2 
{GO MOVE COMMAND 4 TO 1 
iGO MOVE COMMAND 3 TO 4 
iGO ADJUST THE OLD POINTER 

iNEU POINTER AT BF2 ? 
iNO. TRY AGAIN 
iGO MOVE COMMAND 4 TO 1 
{GO ADJUST THE OLD POINTER 
iNEU POINTER AT BF3 ? 
{NO. TRY AGAIN 
{GO MOVE COMMAND 1 TO 2 
{GO MOVE COMMAND 4 TO 1 
iGO ADJUST THE OLD POINTER 
{GO MOVE COMMAND 2 TO 3 
iGO MOVE COMMAND 1 TO 2 
iGG MOVE COMMAND 4 TO 1 



{CLEAR THE GCS MODE FLAG 

{PUT THE CMD STATUS INTO THE SAVE LOC 

{TAKE OFF THE RESPONSE 

{TAKE OFF THE RESPONSE 

{ADJUST THE CMDSEQ i«JM6ER BACK 1 

; CLEAR THE NEW RESPONSE FLAG IN lOSTAT 

jADD 1 TO THE CREDIT LIMIT 

{ADJUST THE OLD COMMAND POINTER 
ilS IT AT THE END OF the RING ? 
{NO. BRANCH 

{YES. SET IT TO THE TOP THE RiNG 

{ADJUST THE OLD COMMAND POINTER 
ilS IT AT THE END OF THE RING ? 
{NO. BRANCH 

{YES. SET IT TO THE TC. OF THE RP.'G 

{ADJUST THE OLD RESPONSE POINTER 
{IS IT AT THE END OF THE BUFFER ? 
iNO. KEEP GOING 

{YES. SET IT TO BEGINNING OF thE BUFFER 



GLOBAL AREAS MACRO rOS.02 
GCS RE<:PONSE HANDLER 



Monday 26 -Aug -85 09:54 Page 48 2 



SEQ 98 



3964 
3965 
3966 
3967 
3966 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 



027554 
027560 
027564 
027566 

027572 
027572 
027574 



027576 
027602 
027606 
027610 
027614 
027616 

027620 
027624 
027630 
027632 
027636 
027640 

027642 
027646 
027652 
027654 
027660 
027662 

027664 
027670 
027674 
027676 
027702 
027704 



062701 
02C401 
001002 
016401 



000240 
000207 



012701 
012702 
012122 
022701 
001374 
000207 

012701 
C12702 
012122 
022701 
001374 
000207 

012701 
012702 
012122 
022701 
001374 
000207 

012701 
012702 
012122 
022702 
001374 
000207 



000104 
000212 

000210 



003752 
004022 

004022 



004022 
004072 

004072 



004072 
004142 

004142 



004142 
003752 

004022 



15$: ADD «0RBSTP.R1 

CMP URBEND{R4).R1 

ONE GCSEXT 

MOV URSPBF-(R4).R1 

GCSEXT : 

NOP J TEMP 

RTS PC 



EXC1A2: MOV #CMOBri.Rl 

MOV #CM0BF2.R2 

51: MOV (R1)*,(R2)* 

CMP #CM0BF2.R1 

BNE 51 

RTS PC 

EXC2A3: MOV *CMDBF2.R1 

MOV ♦CMDBF3.R2 

5*: MOV (R1)».(R2)* 

CMP ♦CMDBF3.R1 

BNE 5* 

RTS PC 

EXC3A4: MOV *CM0BF3,R1 

MOV «Cn0BF4.R2 

51: MOV (R1)*,(R2)* 

CMP OCM0BF4.R1 

BNE 5« 

RTS PC 

EXC4A1: MOV *CMDBF4.R1 

MOV #CMDBF1.R2 

5*: MOV (R1)».(R2)* 

CMP ♦CMDBF2.R2 

BNE 5« 

RTS PC 



{ADJUST Rl 

;IS IT AT THE END OF THE BUFFER ? 
J NO. GET OUT 

I YES. SET IT TO BEGINNING OF THE BUFFER 



jRFTURK 



:SET Rl TO BFl 

jSET R2 TO BF2 

iMOV BFl CONTENTS TO BF2 

•.HAVE UE MOVED THEM ALL 

I NO. KEEP MOVING IT 

;YES. GET OUT 

;SET Rl TO BF2 

sSET R2 TO BF3 

{MOV BF2 CONTENTS TO BF3 
HAVE WE MOVED THEM ALL 
NO. KEEP MOVING IT 
YES. GET OUT 

SET Rl TO BF5 

SET R2 TO BF4 

MOV BF3 CONTENTS TO BF4 

HAVE UE MOVED THEM ALL 

NO. KEEP MOVING IT 

YES. GET OUT 

SET Rl TO BF4 
SET R2 TO BFl 
MOV BF4 CONTENTS TO BFl 
HAVE UE MOVED THEM ALL 
NO, KEEP MOVING IT 
I YES. GET OUT 
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4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
4033 
4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
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SEQ 99 



027706 
027706 
027710 
027714 
027720 
027722 
027726 

027732 
027736 
027742 
027744 

027750 
027756 
027760 
027764 

027766 
027772 
027774 
030002 
030004 
030012 

030014 

030016 
030022 
030024 
030032 
030040 
030046 
030050 
030056 
030062 
030066 
030070 
030076 



OS 



1^ 



005037 
105737 
001404 
004737 
000137 

016403 
005737 
001002 
000137 

032763 
001003 
004737 
000500 

005763 
001445 
022763 
001004 
052764 
000463 

000240 

005737 
001426 
016337 
042737 
022737 
001014 
052764 
005237 
005337 
001035 
012737 
000431 

004737 
00040!(, 



RESPONSE HANDLER 

Called By 
Calls To 

Register Inputs : 
Register Inputs : 



RSPHOL : 



CMDSEQ 

ERRDEI, ERRDEL, ERROEC. CMPDAT. DQCMO 

Rl - UNIT NUMBER 

R4 - LUN BLOCK POINTER 

R3 POINTER TO CURRENT RESPONSE PACKET 



030106 000241 
030110 006164 
030114 004737 









PUSH 


<R3> 




003552 






CLR 


RcSPUN 




010732 






TC TO 

TSTB 


lOSTAT 


.r»Tn uc uAijc t /n tvdc cati iidci 
;\jXU Ht MMvt J./U lire r Mi,LUNt f 






Bcdl 


3* 


.QDAUPki ADni iur\ TP unT 


031724 






JSn 


rL . tKnUcI 


.CI cc ftcrnnc Aun ddtmt •t 


030216 






jnr 


731 


.f*CT m IT unu 
: be 1 UU 1 NUW 


000022 




c * _ 

3* : 


nuv 


R0LSAV(R4).R3 


;GET OLD RESPONSt BUFFER POINTER 


009530 






TCT 


HNOLRP 


sOID UE HAVE ANY RESPONSES ? 








Que 


10* 


sYES, SEE WHAT THEY ARE 


030216 






Jnr 


751 


iNO, GET OUT OF HERE 


000200 


000010 


101: 


BIT 


»0P.END,P.0PCD(R3) 


sis IT AN END PACKET? 








BNE 


15t 


iYES. BRANCH 


032264 






ICO 

Jan 


PC. ERRDEL 


:G0 HANDLE ERROR LOG PACKET 






BR 


65« 


;SEE IF THERE'S MORE RESPONSES 






13* : 


TCT 


P.STS(RS) 


:UAS STATUS "NORMAL"? 








DCA 
DCU 


30* 


jYES - BRANCH 


00002P 


000012 




CMP 


#ST.SEX,P.STS(R3) 


ilS IT SERIOUS EXCEPTION STAfUS? 








BNE 


20* 


; BRANCH IF NOT 


000004 


OC0O26 




BIS 


♦NOT ALY . LUNFLG( R4 ) 


:YES. SET THE NO-TALLY FLPZ 








BR 


60* 


■GO DE-QUE THE COMMANDS 






201: 


NOP 


iTEMP 




003560 






TST 


MRETRY 


iARE WE IN MANUAL RETRY MODE 






BEQ 


25* 


sBRAI^CH IF NOT 


000012 


003723 




MOV 


P.STS(R3).R13 


;GET STATUS 


177740 


0037tj 




BIC 


♦177740. R13 


; STRIP UNWANTED BITS 


000010 


003722 




CMP 


♦ST.0AT.P13 


: IS IT A DATA ERROR 




BNE 


25* 


; BRANCH IF NOT 


000006 


000026 




BIS 


♦SEREXC!N0TALY,LUNFLG(R4)s SERIOUS EXCEPTION AND NO ^ALlY FLAG 


003562 




INC 


MANCNT 


sKEEP TRACK OF NUMBER OF ACTUAL URITE/READ 


003560 






DEC 


MRETRY 


: COUNT DOWN MAUAL RETRIES 






BNE 


60* 


: BRANCH IF NOT FINISHED MANUAL RETRIES 


000002 


003564 




MOV 


♦2.ARETRY 


jSCT UO AUTO RETRY COUNTER 






BR 


63* 


: CONTINUE 


031122 




251: 


JSR 


PC.FRROEC 


I GO HANDLE ERROR STATUS 






BR 


50* 








30«: 


CLC 




J CLEAR THE CARRY BIT 


000030 






ROL 


LE0TFLCR4) 


{ROTATE THE CARRY INTO THE LEOT FLAG 


030230 






JSR 


PC.RETOON 


;G0 SEE IF RETRY COMPLETE 



I 
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4060 



4061 


030120 


032761 


000001 


003526 


501: 


BIT 


4062 


030126 


001433 








BEQ 


4063 


030130 


022763 


000241 


000010 




CMP 


4064 


030136 


001011 








ENE 


4065 


030140 


022737 


000005 


002114 




CMP 


4066 


030146 


001003 








BNE 


4067 


030150 


105737 


002236 






TSTB 


4068 


030154 


001402 








BEQ 


40^9 














4070 


030156 


004 737 


032732 




55t : 


JSR 


4071 














4072 


030162 


004737 


030460 




60* : 


JSR 


4073 














4074 


030166 


062703 


AAA 4 AjI 

000104 




651 : 


ADD 


4075 


030172 


026403 


000212 






CMP 


4076 


030176 


001002 








BNE 


4077 


030200 


016403 


000210 






MOV 


4078 














4079 


030204 


C05337 


003556 




70»; 


DEC 


4080 


030210 


001402 








BEQ 


4081 


030212 


000137 


027750 






JMP 


4082 














4083 


030216 


010364 


000022 




75»: 


MOV 


4084 


030222 










POP 


4085 


030224 


000240 








NOP 


4086 


030226 


000207 








RTS 
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SEQ too 



«AVB.DRINUS(R1) 
75» 

♦OP.ENDJOP.RD.P 
601 

*5,L{TEST 
b5* 
T5CMP 
60$ 

Pr.CMPDAT 

PC.DQCMD 

«0RBSTP.R3 
URBEN0(R4).R3 
70 » 

URSPBF(R4),R3 

HNDLRP 

75» 

101 

R3.R0LSAV(R4) 

<R3> 

;TEMP 

PC 



,HAVE WE DROPPED THE UNIT ? 
;YES - GET OUT 
OPCDCRS) ,0ID WF READ THIS TIME ? 
:N0 - SKIP DATA COMPARE 
;ARE UE IN TEST 5 ? 
:N0 - DO DATA COMPARE 
:D0 DATA COMPARES IN TEST 5 7 
iNO. SKIP DATA COMPARE 

:D0 COMPARE DATA 

jDEQJLJE THE COMMAND 

.ADJUST POINTER TO NEXT PACKET 

.END OF RESPONSE BUFFER? 

:N0 - BRANCH AROUND 

:PUT POINTER AT BEGINNING OF BUFFER 

.DECREMENT RESPONSE COUNTER 
iALL DONE. GET OUT 
sGO HANDLE ANOTHER ONE 

sSAVE OLD RESPONSE BUFFER POINTER 



GLOBAL AREAS 
R£TRY DONE 



4088 
4089 
4090 
4091 
4092 
4093 
4094 
4095 
4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
410S 
4109 
4110 
4111 
4112 
4113 
4114 
4115 
4116 
4117 
4118 
4119 
4120 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
4155 
4136 
4137 
4130 
4139 
4140 
4141 
4142 
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SEQ 101 











.SBTTL 


RETRY 


DONE 












• 

5 RETRY 


DONE 






030230 








RETDON: 








030250 


005737 


005560 






TST 


MRETRY iARE WE IN MANUAL RETRY MODE 


030234 


001412 








BEQ 


401 i 


BRANCH IF NCT 


030236 


032737 


000001 


003560 




BIT 


«1. MRETRY 1 


JUST FINISHED ^ SPACE REVERSE 


030244 


001003 








BNE 


55* 1 


BRANCH ir NOT 


030246 


005557 


005560 






DEC 


MRETRY iCOUNT DOUN MANUAL RETRIES CTOGGLE BIT 0) 


030252 


000501 








BR 


1001 




030254 


005037 


005560 




351: 


CLR 


MRETRY {MANUAL RETRY SUCCESSFUL. CLEAR COUNTER 


030260 


000414 








BR 


501 




030262 


005737 


003564 




40t : 


TST 


ARETRY 


ARE UE IN ATUO RETRY MODE 7 


030266 


001475 








BEQ 


1001 


BRANCH IF NOT 


030270 


C32757 


000001 


003564 




BIT 


#1. ARETRY 


JUST FINISHED A SPACE REVERSE 


050276 


001003 








BNE 


45< 


BRANCH IF NOT 


030300 


00S3S7 


AAV if £ M 

003564 






Ap A 

DEC 


ARETRY 


COUNT DOUN AUTO RETRIES (TOGGLE BIT 0. 


030304 


000464 








A A 

BR 


100* 




030306 


005037 


003S64 




45* : 


CLR 


ARETRY (AUTO RETRY SUCCESSFUL, CLEAR COUNTER 


050512 








50* : 


PUSH 


<R1.R2> 


SAVE Rl AND R2 


050516 


012701 


011516 






MOV 


♦SDATT.Rl 


PUT THE ERROR ADDRESS IN Rl 


050522 


012702 


013166 






now 


«L*ERRTBL.R2 


PUT THE ERROR TABLE ADDRESS IN R2 


050526 


012122 








now 


(R1)*.(R2)» 


MOVE ERROR TABLE CONTENTS 


050350 


012122 








nOV 


(R1)».(R2)* 


MOVE ERROR TABLE CONTENTS 


050352 


012122 








nOV 


(R1)*.(R2)* 


MOVE ERROR TABLE CONTENTS 


050534 


012122 








nov 


CR1)*.(R?)» 


MOVE ERROR TABLE CONTENTS 


050336 










BAA 

PUP 


<R2.R1> 


RESTORE R2 AND Rl 


030342 


AAA ^ VT 

004737 


032624 






JSR 


PC.ERRTLY 


TALLY THE ERROR 


030546 


105057 


013167 






CLRD 


ERRTYP»1 


(CLEAR THE UPPER BYTE 


030352 


105737 


002230 






T5TB 


SOERRP 


ARE SOFT ERRORS ENABLED ? 


030356 


001017 








BNE 


60 1 


lYES. GO PRINT THE ERROR 


030360 


122737 


A A A A AT 

000003 


013166 




cnPB 


#S0FT.L*ERRTBL 


IS IT A SOFT ERROR ? 


030566 


001013 








BNE 


60* 


NO, PRINT IT 


050570 


022737 


000020 


005716 




CMP 


•UR.Rll 


IS IT A WRITE ? 


050376 


001411 








BEQ 


70* 


DON'T PRINT IT 














♦UTM.Rll 


IS IT A URITE TAPE MARK ? 


030406 


001405 








BEQ 


70* 


DON'T PRINT IT 


030410 


105737 


002231 






TSTB 


ROSOER 


■ARE UE PRINTING SOFT READ ERRORS ? 


030414 


001402 








BEQ 


70* 


NO, DON'T PRINT IT 


050416 


004737 


052714 




60<: 


JSR 


PC.PRIERR 


PRINT THE ERROR 


030422 


005037 


003562 




701: 


CLR 


MANCNT 


CLEAR THE MANUAL RETRY COUNT 


030426 


042764 


000200 


000026 




BIC 


«RETFLG.LUNFL6(R4) 


AND THE FLAG 


030434 


042737 


000100 


003674 




BIC 


•CnOONE.PCFLAG 


! CLEAR THE COMMAND DONE FLAG 


030442 


013737 


003542 


003536 




MOV 


CCTSAV.CMDCNT 


RESTORE COMMAND COUNT 


030450 


063757 


003542 


003540 




ADO 


CCTSAV.RSPCNT 


! ADJUST THE RESPONSE COCMT 


030456 


0O0207 






1001: 


RTS 


PC 
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SEQ 102 



4144 

4145 
414« 
4147 
4145 
4149 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4158 
4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 



.S8TTL DE -QUEUE COflTIAND 



DE-QUEJE conn AND 

Called By : RSPHOL 

Callt To : LGSTAT 

R«fliit«r Inputs : R2 - OLD POINTER TO PROGRAM COMMAND RING 

Rcgit'tcr Output*: R2 - UPDATED 



030460 

030460 004737 030520 

030464 062702 000014 

030470 022702 003522 

030474 001002 

030476 012702 003442 

0S0S02 005337 003540 

030506 C12757 177777 010734 

030514 000240 

030516 000207 



DQCMO: 



5<: 



JSR 
ADD 
CMP 
BNE 
MOV 

DEC 
MOV 
NOP 
RTS 



PC. LGSTAT 
#PCBSTP.R2 
«PCBEND.R2 
5» 

#PCMDBr.R2 

RSPCNT 
♦-I.CMSTSV 
J TEMP 
PC 



CALL LOG STATS 

ADJUST THE OLD COMMAND POINTER 
ARE WE AT THE END OF THE BUFFER 7 
NO. KEEP GOING 
YES. SET IT BACK TO THE TOP 

{DECREMENT THE RESPONSE COUNTER 
; RESET THE GCS PROGRESS COUNT 

: RETURN 



GLOBAL AREAS 
LOG STATISTICS 

4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 

4176 030520 
4179 030520 

4160 030522 

4161 0S05S0 

4162 030552 

4163 030540 

4164 030542 

4165 030546 
4ie« 030550 
4167 030554 

4166 030562 
4169 030564 

4190 030570 

4191 030576 

4192 030600 

4193 030604 

4194 030610 

4195 030612 

4196 030616 

4197 030622 
4196 030624 

4199 030632 

4200 030634 

4201 030642 

4202 030646 

4203 030650 

4204 030656 

4205 050660 

4206 050666 

4207 030672 
4206 050674 

4209 050702 

4210 050704 

4211 050706 

4212 050712 
4215 050716 
4214 050722 
4215 

4^16 050724 

4217 050752 

4218 050754 

4219 050742 

4220 050744 

4221 050752 
4.-22 050754 
4..25 050762 
4.>24 050770 
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.SBTTL LOG STATISTICS 



SCQ 103 



052764 
001166 
1^2762 
107562 
105762 
001557 
0«2704 
022757 
001002 
062704 
122762 
001052 
066214 
021427 
005405 
162714 
005264 
000770 
026427 
005406 
162764 
005264 
000766 
026427 
005406 
162764 
005264 
000766 
026427 
005501 
005014 
005064 
005064 
005064 
000471 

022765 
001465 
022763 
001461 
022765 
001455 

026427 
005406 



LOG STATISTICS 



: Called By 

s Register Input* 



LGSTAT : 



OQcno 

R2 - OLD PROGRAH COnriAND POINTER 
R4 - LUN BLOCK POINTER 









PUSH 


<R4> 


(SAVE R4 


000004 


000026 




BIT 


«NOT AL Y . LUNFLG( R4 ) 


tIS THIS NOT TO BE TALLIED ? 








BNE 


TLYEXT 


:YES, GET OUT 


000040 


000000 




CMPB 


•ACC.CM0(R2) 


:SEE IF COMMAND A READ OR URITE 








BLO 


TLYEXT 


iNO. EXIT SUBROUTINE 


000000 






TSTB 


CM0(R2) 


lis IT A NULL 7 






BEQ 


TLYEXT 


J YES. EXIT SUBROUTINE 


000154 






ADO 


4GUR6Y1.R4 


J ADD OFFSET TO BYTE COWIT STORAGE 


000002 


005752 




CtIP 


♦TF.PE. FORMAT 


lAFc UE IN PE OR GCR ? 








BNE 


TALLY 


sGO TALLY THE GCR BYTE COUNT 


000020 






ADO 


#20. R4 


(ADJUST R4 FOR PE 


000020 


000000 


TALLY : 


CMP8 


#UR.CM0(R2) 


J IS IT A URITE ? 








BNE 


5t 


sNO. HANDLE READ 


000002 






ADO 


ITM0FF(R2),(R4) 


;YES. ADD THE BYTES WRITTEN TO TOTAL 


001747 






cnp 


(R4).*999. 


lis IT NIGER THAN 999. 7 




BLE 


2« 


1 BRANCH IF IT'S NOT 


001750 






SUB 


#1000. ,(R4) 


1 SUBTRACT 1000. FROM THE LOWER ORDER 


000002 






INC 


2(R4) 


(INCREMENT THE SECOND WORD 


000002 


001747 


2t: 


BR 
CMP 


1< 

2(R4),#999. 


lis IT HIGER THAN 999. ? 








BLE 


5fr 


1 BRANCH IF IT'S NOT 


001750 


000002 




SUB 


#1000. ,2(R4) 


{SUBTRACT 1000. FROM THE LOUER ORDER 


000004 






INC 


4(R4) 


; INCREMENT THE THIRD UORO 








BR 


2t 




000OO4 


001747 


99 : 


Lnr 








BLE 


41 


{BRANCH IF IT'S NOT 


001750 


000004 




SUB 


#1000. .4(R4) 


{SUBTRACT 1000. FROM THE LOUER ORDER 


000006 




INC 


6(R4) 


1 INCREMENT THE FOURTH UORO 






BR 


5« 




0000O6 


001747 


4t: 


CMP 


6CR4).#999. 


lis IT HIGER THAN 999. ? 




BLE 


TLYEXT 


{BRANCH IF IT'S NOT 








CLR 


(R4) 


1 CLEAR 


000002 






CLR 


2CR4) 


URITE 


000004 






CLR 


4(R4) 


I BYTE 


000006 






CLR 


6(R4) 


1 COUNTS 






BR 


TLYEXT 


lEXIT 


000016 


000012 


S(: 


CMP 


#ST.TM,P.STS(R3) 


{UAS THIS A TAPE MARK DURING READ 






BEQ 


TLYEXT 


{YES, GET OUT 


000010 


000012 




CMP 


#10.P.STS(R5) 


{UAS THIS A DATA ERROR DURING READ 




BEQ 


TLYEXT 


{YES, GET OUT 


000550 


000012 




CMP 


#550.P.STS(R5) 


{UAS THIS A DATA ERROR DURING READ 




BEQ 


TLYEXT 


{YES. GET OUT 


000040 


000010 




ADD 


P.TRBC(R5).10CR4) 


{YES, ADO THE BYTES READ TO TOTAL 


000010 


001747 


61: 


CMP 


10(R4).#999. 


{IS IT HIGER THAN 999. ? 




BLE 


71 


{BRANCH IF IT'S NOT 



GLOe«L AffEAS 
LOG STATISTICS 
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4225 
4226 
4227 
4228 
4229 
4250 
42S1 
42S2 
4233 
4234 
4235 
423« 
4237 
423« 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
424'. 
4247 



030772 
031000 
031004 
031006 
031014 
031016 
031024 
031030 
031032 
031040 
031042 
031050 
031054 
031056 
031064 
031066 
031072 
031076 
031102 
031106 
OilllO 
031116 
•yill20 



162764 
005264 
000766 
026427 
003406 
162764 
005264 
000766 
026427 
003406 
162764 
005264 
000766 
026427 
003410 
005064 
005064 
005064 
005064 

042764 
000240 
000207 



001750 


OOUQlW 




CI n 




0O0O12 






INC 










on 


of 


0P0012 


OOl / 


» • : 


r*MD 
cnr 


i DA ^ AOOO 








BLc 


o« 


00179V 


OOwl2 




CI A 
SUV 




OOOOI4 






XML 










BD 
DN 


r * 


000014 


OOl 74 1 


Bl : 


CnP 












Oft 




000014 




CI A 


A1 AAA 1ArDA> 


WW AO 






IMC 










BR 


Bt 


000016 


001747 


91: 


CHP 


16(R4).*999. 








BLE 


TLYEXT 


000010 






CLR 


10(R4) 


000012 






CLR 


12(R4) 


000014 






CLR 


14<R4) 


000016 






CLR 


16(R4) 






TLYEXT: 


POP 


<R4> 


000004 


000026 




BIC 


•NCTALY.LUNFLGCRA) 








NOP 


;TE«P 








RTS 


PC 



SEQ 104 



i SUBTRACT 1000. FRO^ THE LOWER ORDER WORD 
; INCREMENT THE SECOND WORD 

.IS IT HIGEF HAN 999. 7 
(BRANCH IF 11 S NOT 

{SUBTRACT 1000. FROH THE LOUER ORDER WORD 
; INCREMENT THE SECOND WORD 

lis IT NIGER THAN 999. 7 
(BRANCH IF IT'S NOT 

.•SUBTRACT 1000. FROH THE LOUER ORDER UORD 
t INCREMENT THE SECOND WORD 

.IS IT HIGER THAN 999. ? 

(BRANCH IF IT'S NOT 

.CLEAR 

; READ 

I BYTE 

t COUNTS 

(RESTORE R4 

(CLEAR THE NO-TALLY FLAG BEFORE EXITING 
(RETURN 
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ERHOR DECODE 

4249 

42S0 
4251 
4252 
4253 
4254 
4255 
42S6 
4257 
4258 
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ERROR DECODE 

Called By 
Calls To 
Register Inputs 



RSPHDL 

ERRTLY. PRIERR 
R2 - OLD PROGRAM 





















on 1 29 










PUSH 


<R5> 




oil 124 


016905 


OOOOlO 






MOV 


XFERST(R2) RS 


49f«9 


on 1 50 


099705 


ooo4oo 






CMP 


ACT QMI R5 




0S1134 


C 01005 








BNE 


51 


49A4 


on 116 


019717 

V xc r f 


OOOlOO 

V W X w 


001690 




MOV 


MNLR URKMSK 




oil 144 

v^x x^^ 


000137 


031712 

W«^X f xc 






JMP 


MSKTST 




V JX* 


042705 


177740 




5$ . 


BTC 

0X W 


♦177740. R5 


4267 


0S11S4 


022705 


000010 






CMP 


♦ST DAT.R5 


A." 

JO 


031160 


C01017 








BNE 


10$ 




031162 

V<^ A Awe 


105737 


002225 






TSTB 


SERREC 






001414 








6EQ 


10 < 


4P71 


031170 


005737 


003564 






TST 


ARETRY 


4272 


031174 


001011 








BNE 


lot 


4273 


031176 


012737 


000016 


003560 




MOV 


♦14 . .MRETRY 


4274 


031204 


004737 


032500 






JSR 


PC .RUN JAM 


4275 


031210 


005237 


003562 






INC 


MANCNT 


4976 


031214 

ViJ AC A^ 


000137 


032142 






JMP 


EOCEXT 


4277 
















427S 


031220 


022762 


002000 


000010 


lot : 


CMP 


♦2000. XFERST(R2) 


42 79 


031226 


001055 








BNE 


20 1 


4 2 AO 


031230 


004737 


030230 






JSR 


PC. RE TOON 


4281 


031234 


122762 


00C020 


000000 




CMPB 


♦UR.CMD{R2) 


4282 


031242 


001410 








BEQ 


lit 


42SS 


031244 


022762 


000100 


000000 




CMP 


♦UTM,CMD(R2) 


4284 


031252 


001404 








BEQ 


lit 


4285 


031254 


004737 


030230 






JSR 


PC.RETDON 


4286 


031260 


000137 


032142 






JMP 


fcOCEXT 


4287 














♦EOT.DRINUSCRl) 


4288 


031264 


052761 


000004 


003526 


11»: 


BIS 


4289 


031272 


005237 


003706 






INC 


UEOT 


4290 


031276 


163737 


003536 


003540 




SUB 


CMDCNT.RSPCHT 


4291 


031304 


005037 


003536 






CLR 


CMDCNT 


4292 


031310 


032764 


000010 


000026 




BIT 


♦£0TPR,LUNFLG(R4) 


4293 


031316 


001017 








BNE 


I5t 


4294 


031320 










PUSH 


<R1> 


4295 


031322 


006001 








ROR 


Rl 


4296 


031324 










PRINTF 


•UNTEOT.Rl 


031324 


010146 








MOV 


Rl. -(SP) 




031326 


012746 


020253 






MOV 


«ONTE0T.-(SP) 




031332 


012746 


000002 






MOV 


♦2.-(SP) 




031336 


010600 








MOV 


SP.RO 




031340 


104417 








TRAP 


CtPNTF 




031342 


062706 


000006 






ADD 


♦6.SP 


4297 


031346 










POP 


<R1> 


4298 


031350 


052764 


OOOOIC 


000026 




BIS 


♦E0TPR.LUNFLG(R4) 


4299 


031SS6 


000137 


032142 




15$: 


JMP 


EOCEXT 



COMMAND BUFFER POINTER 



SAVE R5 

PUT THE COMMAND STA'US IN R5 

IS IT A UNIT ONLINE ERROR 7 

BRANCH IF IT ISN'T 

SET THE ERROR BIT IN THE MASK 

GO TEST IF IT'S O.K. 

CLEAR THE UNWANTED BITS 

IS IT A DATA ERROR (RETRY) 

BRANCH IF NOT 

USER DISABLE RETRIES 7 

BRANCH IF SO 

DID UE FAIL IN AUTO RETRY MODE ? 
BRANCH IF SO 

SET FOR 7 RETRIES. 7 SPACE RECORDS 
GO ADJUST THE COUNTERS 
INCREMENT FOR FIRST RETRY 
RETURN 

IS EOT SET IN TRANSFER STATUS ? 

BRANCH IF IT ISN'T 

SEE IF WE'RE DOING RETRIES 

IS IT A WRITE 7 

YES. SET UP FOR EOT 

IS IT A WRITE TAPE MARK ? 

YES. SET UP FOR EOT 

SEE IF WE'RE DOING RETRIES 

RETURN 

SET THE DRIVE TO EOT 
INC THE EOT FLAG 

SET RESPONSE COUNT TO NUMBER OUT 

ISSUE NO MORE COMMANDS 

HAS EOT BEEN PRINTED FOR THIS DRIVE 

DON'T PRINT IT AGAIN 

SAVE Rl 

DIVIDE Rl B>' 2 

PRINT UNIT AT EOT MESSAGE 



RESTORE Rl 

EOT BEEN PRINTED FQR THIS DRIVE 
GET OUT 
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4300 
430; 
4302 
4303 
4304 
4305 
4306 
4307 
4306 
4309 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4330 
4331 
43S2 



4333 
4334 
4335 
43S6 
4337 
4338 
4339 
4340 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4350 



031362 
031370 
031374 
031376 
031404 
031410 
031412 
031416 

031420 
031426 
031434 
031440 
031442 
031450 

031452 
031456 
031460 
031466 
031470 
031474 
031502 
031510 
031512 
031520 
031522 
031530 
031';36 
031542 
031544 
031546 
031546 
031550 
031554 
031560 
031562 
031564 
031570 
031572 
031600 
031604 
031610 

031614 
031622 
031624 
031630 
031636 

031640 
031644 
031646 
031650 
031654 
031662 
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012757 
022705 
001003 
052737 
022705 
lOdOOS 
012705 
000552 

012737 
016337 
022705 
001004 
012737 
000520 

022705 
001070 
052764 
000261 
006164 
042764 
022764 
001041 
032764 
001033 
052764 
052761 
005237 

006001 

010146 
012746 
012746 

010600 
104417 
062706 

163737 
005037 
005037 
000137 

132763 
001402 
000137 
012737 
000425 

022705 
001007 
000241 
006164 
012737 
000413 



SEO 106 



All A V£ 

011036 


003 '10 


«:0» : 


nuv 


ArHAT DA 








TMD 


w 1 0 0 n3 








BNE 


25* 


000010 


003674 




BIS 


•DRERFL.PCrLAG 






3^ t . 
c j» : 














xnt 








MAU 


vc^ • "3 








no 








xnt • 


MAW 










MAW 












ACT UPQ PS 








AMP 
one 










riUV 












nSKTST 






YSt • 
* • 




ACT TM PS 










50* 


A A AAA 3 




















AAAAYA 








LFQTn fR4 ■) 


1 77774 


\J\J\J\J 






dl77774 LE0TF"L(R4) 


AAAAAT 
WWW J 


WW JV 




CMP 


• 5 LEQTF"L(R4) 










40 ( 


vWvXV 


V wvco 




RTT 










36* 


AAAAI A 






D A 0 


0CQTPR LUNFLGtR4) 


wvw^ 


003526 




BIS 


#eOT.ORINUS(Rl) 


W J ■ WW 






INC 


UEOT 








PUSH 


<R1> 








ROR 


Rl 








PRINir 


•UNTLOT.Rl 








flOV 


Rl, -CSPJ 


VcV f 






r*ov 


#UNTL0T. CSP) 








flQV 


♦2. -(SP) 








nov 


SP RO 








TRAP 


C»PNTF 


000006 






ADO 


•6,SP 








POP 


<R1> 








SU8 


CnOCNT.RSPCNT 








CLR 


cnocNT 








CLR 


RESPON 






36$ : 


JMP 


EOCEXT 


000010 


000011 


40*: 


BITS 


•CF.E0T.P.FL6SCR3) 






BEQ 


45* 


032142 






JMP 


EOCEXT 


000010 


003620 


45*: 


nov 


«Tn6 . URKnSK 






BR 


nSKTST 


000020 




50*: 


CMP 


♦ST.R0T.R5 






BNE 


55* 








CLC 




000030 






ROL 


LE0TFL(R4) 


000002 


003620 




nov 


«RDTB,WRKnSK 








BR 


nSKTST 



PUT THE ERROR TABLE ADDRESS IN R8 
IS IT A DRIVE ERROR 7 
NO. 'ONTINUE 

SET 1HE DRIVE ERROR FLAG 

IS IT A VALID STATUS ? 

IT'S VALID. BRANCH 

HAKE SURE ITS NOT MORE THAN 24 

TAKE THE ERROR EXIT 

SET SERIOUS EXCEPTION 

SAVE THE CURRENT COMMAND REF • 

IS IT A WRITE PROTECT ERROR ? 

BRANCH IF IT ISN' T 

SET THE ERROR BIT IN THE MASK 

GO TEST IF ITS O.K. 

IS IT A TAPE MARK ERROR ? 
BRANCH IF IT ISN'T 
SET SERIOUS EXCEPTION 



HAS LEOT BEEN PRTN'ED FOR THIS DRIVE 

DON' T PRINT IT AGAIN 

I EOT BEEN PRINTED FOR THIS DRIVE 



INC THE EOT FLAG 
SAVE Rl 

DIVIDE Rl BT 2 

PRINT UNIT AT EOT MESSAGE 



RESTORE Rl 

SET RESPONSE COUNT TO NUnSER OUT 
ISSUE NO MORE COMMANDS 
MAKE SURE UE 
GET OUT 

IS THE TAPE MARK AT EOT ? 
NO. KEEP ON GOING 
YES. GET OUT 

SET THE ERROR BIT IN THE MASK 
GO TEST IF IT'S O.K. 

IS IT A RECORD DATA TRUNCATED ERROR 
BRANCH IF IT ISN'T 
CLEAR THE CARRY BIT 

ROTATE THE CARRY INTO THE LEOT F^AG 
SET THE ERROR BIT IN THE MASK 
GO TEST IF IT'S O.K. 
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4SS1 

~ ^ mf 












CMP 


4352 


031664 


022705 


000023 




55$ : 


4353 


031670 


001002 








BNE 


4354 


031672 


000137 


032142 






JMP 


4355 














4356 


031576 


022705 


000004 




60*: 


CMP 


4357 


031702 


001020 








BNE 


4358 


031704 


012737 


000040 


003620 




MOV 


4359 














4360 


031712 


033737 


003620 


003616 


MSKTST : 


BIT 


4361 


031720 


001110 








BNE 


4362 


031722 


000410 








BR 


4363 














4364 


031724 








ERROCI : 




4365 


031724 










PUSH 


4566 


031726 


113705 


010732 






MOVB 


4367 


031732 


012737 


010756 


003710 




MOV 


4368 


031740 


042705 


177770 






BIC 


4369 














4370 


031744 


C05305 






ERREXT : 


DEC 


4371 


031746 


006305 








ASL 


4372 


031750 


006305 








ASL 


4373 


031752 


006305 








ASL 


4374 


031754 


063705 


003710 






ADD 


4375 


031760 










PUSH 


4376 


031762 


012703 


013166 






MOV 


4377 


031766 


012523 








MOV 


4378 


031770 


012523 








MOV 


4379 


031772 


012523 








MOV 


4380 


031774 


011513 








MOV 


4381 


031776 










POP 


4382 












CMP 


4383 


032000 


022762 


000010 


000010 




4384 


032006 


001006 








BNE 


4385 


032010 


112737 


000001 


013166 




MOVB 


4386 


032016 


004737 


034022 






JSR 


4387 


032022 


000240 








NOP 


4388 


032024 


004737 


032624 




ERTLY: 


JSR 


4389 


032030 


105037 


013167 






CLRB 


4390 


032034 


105737 


002230 






TSTB 


4391 


032040 


001017 








BNE 


4392 


032042 


122737 


000003 


013166 




CMPB 


4393 


032050 


001013 








BNE 


4394 


032052 


022737 


000020 


003716 




CMP 


4395 


032060 


001411 








BEQ 


4396 


032062 


022737 


000100 


003716 




CMP 


4397 


032070 


001405 








BEQ 


4398 


032072 


105737 


002231 






TSTB 


4399 


032076 


001402 








BEQ 


4400 


032100 


004737 


032714 




6*: 


JSR 


4401 














4402 


032104 


132737 


00000 1 


002233 


8*: 


BITB 


4403 


032112 


001403 








BEQ 


4404 


032114 


004737 


034022 






JSR 


4405 


032120 


000240 








NOP 


4406 


032122 


022737 


000001 


013166 


10$: 


CMP 


4407 


032130 


001004 








BNE 
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♦ST.LED.R5 
60$ 

EDCEXT 

*ST.AVL.R5 
fcRREXT 

«AVLB.URKMSK 

URKMSK.TSTMSK 

EDCEXT 

ERREXT 



<R5> 

I0STAT.R5 
♦I0ERTB.R8 
♦177770. R5 

R5 
R5 
R5 
R5 

R8.R5 
<R3> 

•l.*ERRTBL.R3 

(R5)».(R3)» 

CR5)».(R3)» 

(R5)».(R3)» 

(R5).(R3) 

<R3> 

♦EV.LGP.XFERSTCRS) 
ERTLY 

•OEVFAT.ERRTYP 
PC.CORDMP 

PC.ERRTLY 
ERRTfP»l 
SOERRP 
61 

*SOFT.LIERRTBL 
61 

MR.Rll 
8$ 

♦UTM.Rll 
8* 

RDSOER 
81 

PC.PRIERR 

♦BITO.OMPFLG 
10$ 

PC . COROMP 

♦OEVFAT.ERRTYP 
EDCEXT 



; IS IT A LOGICAL END OF TAPE ERROR 

(BRANCH IF IT ISN'T 

J GET OUT IF LEOT OETrCTED 

: IS IT A UNIT AVAILABLE ERROR 7 

, BRANCH IF IT ISN'T 

;SET THE ERROR BIT IN THE MASK 

J IS IT AN ACCEPTABLE ERROR ? 

sGET OUT IF IT IS 

i OTHERWISE PRINT THE ERROR 



. SAVE R5 

I PUT THE I/O ERROR CODE INTO R5 
iSET THE ERROR TABLE ADDRESS IN R8 
.-CLEAR OFF ALL UNWANTED BITS 

: SUBTRACT 1 FROM R5 
:MULTIPLY R5 BY 10(8) 



ADD THE TMBLE ADDRESS TO R5 

SET n3 TO THE GENERIC ERROR TABLE 
MOVE ERROR TABLE CONTENTS 
MOVE ERROR TABLE CONTENTS 
MOVE ERROR TABLE CONTENTS 
MOVE ERROR TABLE CONTENTS 



: IS IS A LOm GAP ENCOUNTERED ? 
sNO. KEEP GOING 
:YES. DROP THE UNIT 
: : i :G0 00 IT 

i TALLY THE ERROR 

i CLEAR UPPER BYTE 

:ARE SOFT ERRORS ENABLED ? 

sYES. GO PRINT THE ERROR 

sIS IT A SOFT ERROR ? 

;N0. PRINT IT 

i IS IT A WRITE ? 

; DON'T PRINT IT 

:IS IT A WRITE TAPE MARK ? 

i DON'T PRINT IT 

iARE WE PRINTING SOFT READ ERRORS 
jNO. DON'T PRINT IT 
:G0 PRINT THE ERROR 

(SHOULD WE DUMP PROGRAM TABLES? 
:N0 - BRANCH 
:G0 DO IT 

sIS IT A FATAL ERROR ? 
iNO EXIT 
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4408 032132 010100 MOV Rl.RO iMOVE UNIT » * 2 TO RO 

4409 032134 006000 ROR RO : DIVIDE BY 2 

4410 032136 004737 040012 JSR PC.DROPUN :DROP DRIVE FROM TESTING 

4411 032142 EOCEXT: POP <R5> :RESTORE REGISTERS 

4412 032144 000240 NOP i TEMP 

4413 032146 000207 RTS PC jRETURN 
4414 

4415 032150 045 116 045 RETl:: .ASCIZ /«N«A***** BEFORE «03«S2«04<(A •»***«1N/ 

4416 032216 045 116 045 RET2: : .ASCIZ /tfNKA***** AFTER tf03«S2«04«A **«**KN/ 

4417 .EVEN 
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4419 
4420 
4421 
4422 
442S 
4424 
4425 
4426 
4427 
4428 
4429 
4430 

44 51 032264 

4452 032264 

4433 032270 116237 

4434 032276 042737 

4435 032304 122763 
4456 032312 001003 
4437 032314 012705 

4436 032320 C00420 

4439 032322 122763 

4440 052530 001574 

4441 052552 012705 

4442 052556 000411 
4445 052540 122765 

4444 052546 001005 

4445 052550 012705 

4446 052554 000402 

4447 052556 012705 

4448 052562 

4449 052364 116237 

4450 052572 012701 

4451 052576 012521 

4452 052400 012S21 
4455 052402 012S21 

4454 052404 011511 

4455 052406 

4456 052410 004757 

4457 052414 105057 
4455 052420 105757 

4459 052424 001017 

4460 052426 122757 

4461 052454 001015 

4462 052456 022737 
4465 052444 001411 

4464 052446 022757 

4465 052454 001405 

4466 052456 105757 

4467 052462 001402 

4468 052464 004757 

4469 052470 

4470 052474 000240 

4471 032476 000207 
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SBTTL ERROR LOG DECODE 



t ERROR LOG DECODE 

Icallcd By 
! Calls To 
; Inputs 
{Outputs 

s Reg! star Inputs 
; Rag! star Outputs 

ERRDEL: 









PUSH 


<R5,R5> 


000000 


005716 




MOVE 


CMD(R2),R11 


177407 


005716 




BIC 


*177407 ,R11 


000005 


000010 




CMPB 


»F"M.TPE.L.FMT(R5) 








BNE 


11 


011546 






MOV 


#TPEERL,R5 








BR 


PRTEXT 


000000 


000010 


It: 


CMPB 


♦P'M.CNT.L.FMT(R5) 








BNE 


1$ 


011526 






MOV 


*CNTERL.R5 








BR 


PRTEXT 


000001 


000010 


5*; 


CMPB 


»FM.BA0.L.FMT(R5) 








BNE 


10* 


U11556 






MOV 


«BADERL,R5 








BR 


PRTEXT 


011556 




101: 


MOV 


«UNKERL.R5 






PRTEXT: 


PUSH 


<R1> 


000000 


005716 




MOVB 


CM0(R2}.R11 


013166 






MOV 


«LIERRTBL.R1 








MOV 


(R5)*.CR1}* 








MOV 


(R5)*,(R1)' 








MOV 


(R5)*.CR1)* 








MOV 


(R5).(R1) 








POP 


<R1> 


032624 






JSR 


PC.ERRTLY 


013167 






CLRB 


ERRTYP*1 


002250 






TSTB 


SOERRP 






BNE 


11 


000005 


015166 




CMPB 


♦SOFT.LIERRTBL 








BNE 


If 


000020 


003716 




CMP 


«UR.R11 






BEQ 


EDLEXT 


000100 


005716 




CMP 


«UTM.Ril 








BEQ 


EDLEXT 


002251 






TSTB 


RDSOER 








BEQ 


EDLEXT 


052714 




It: 


JSR 


PC.PRIERR 






EOLEXT: 


POP 


<R5.R5> 








NOP 


;TEMP 








RTS 


PC 



bEQ 



:GET THE COMMAND PRIMITIVE FOR LATER USE 

;GET JUST THE ROOT ''RIMATIVE 

sTAPE TRANSFER ERROn LOG? 

;N0. DECODE IT 

: PRINT PACKET 

I GET OUT 

{CONTROLLER ERROR LOG? 
;N0. SEE UHAT IT IS 
5 PRINT PACKET 
I GET OUT 

sHOST MEMORY ACCESS ERROR LOG? 
sNO. GET OUT 

:SET UP TO PRINT HOST MEM ACC ERL 

:GET OUT 

:SET UP TO UNKNOUN FORMAT ERROR LOG 
{SAVE Rl 

:GET THE COMMAND PRIMITIVE FOR LATER USE 

|R1 - SUPERVISORS ERROR TABLE 

sCOPY PROGRAM'S ERROR TABLE 

i TO SUPERVISOR'S 

: ERROR 

! TABLE 

{RESTORE Rl 

.•TALLY ERROR FIRST 

{DISCARD INFO USED BY ERRTLLY 

{ARE SOFT ERRORS ENABLED ? 

{YES. GO PRINT THE ERROR 

{IS IT A SOFT ERROR ? 

J NO. PRINT IT 

:IS IT A WRITE ? 

J DON'T PRINT IT 

:IS IT A WRITE TAPE MARK ? 

{DON'T PRINT IT 

{ARE WE PRINTING SOFT READ ERRORS ? 
{NO. DON'T PRINT IT 
:G0 PRINT IT 



GLOBAL AREAS 
RETRY UNJAM 



4473 
4474 
4475 
4476 
4477 
447S 
4479 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4466 
4469 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
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.SBTTL RETRY UNJAM 



J RETRY UNJAM 

iCalled By 

:CalIs To 

; Inputs 

I Outputs 
Rag! star Inputs 
Rag i star Outputs 



032500 








RUNJAM: 






032500 


016337 


000000 


003724 




MOV 


P.CRF(R3).SECRNS 


032506 


013737 


003536 


003542 




MOV 


CMDCNT.CCTSAV 


032514 


163737 


003536 


003540 




sue 


CMDCNT.RSPCNT 


032522 


005037 


003536 






CLR 


CMDCNT 


032526 


016437 


000006 


003614 




MOV 


CMDSEQCR4),SAVDIF 


032534 


163737 


003724 


003614 




SUB 


SECRNS.SAVDIF 


032542 


063737 


003614 


003542 




ADD 


SAVDIF.CCTSAV 


032550 


163764 


003614 


000034 




sue 


SAVDIF.0BJFDLCR4) 


032556 


103002 








BCC 


5> 


032560 


005364 


000036 






DEC 


0BJFDHCR4) 


032564 


022737 


000004 


003602 


5>: 


CMP 


«N.SUBCNT 


032572 


001002 








BNE 


10 » 


032574 


005037 


003602 






CLR 


SUeCNT 


032600 


005237 


003602 




101: 


INC 


suecNT 


032604 


005337 


003614 






DEC 


SAVDIF 


032610 


001365 








BNE 


5t 


032612 


052764 


000006 


000026 




BIS 


•SEREXC!NOTALY,LUI 


032620 


000240 








NOP 


sTEMP 


032622 


000207 








RTS 


PC 



SEQ 110 



;SAVE THE CURRENT COMMAND REF » 

:SAVE THE COMMAND COUNT 

;SET RESPONCE COUNT TO NUMBER OUT 

: ISSUE NO MORE COMMANDS 

J SET UP TO UNJAM THE QUEUES 

; SUBTRACT CURRENT FROM THE HIGHEST 

: ADJUST THE COMMAND COUNT SAVE 

i ADUST THE OBJECT COUNT 

:GET OUT IF NO CARRY 

: OTHERWISE. ADJUST THE HIGH WORD 



)s SERIOUS EXCEPTION AND NO TALLY FLAG 
i RETURN 



GLOBAL AREAS 
ERROR TALLY 
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SEQ 111 



4510 






.SBTTL 


ERROR 


TALLY 




4511 














4512 














4513 






1 ERROR 


TALLY 






4514 














4515 






: Called By 


: ERRDEC. ERRDEI. 


ERROEL 


4516 














4517 














4518 


032624 




FRRTLY: 








4519 


032624 






PUSH 


<R1.R2> 


iSAVE Rl AND R2 


4520 


032630 


113701 


013167 


M0V8 


ERRTYP*1.R1 


sGET THE ERROR TYPE IN Rl 


4521 


032634 


022737 


000002 003732 


CMP 


♦TF.PE, FORMAT 


J ARE UE IN PE MODE ? 


4522 


032642 


001002 




BNE 


5< 


:N0. GO TALLY ERROR 


4523 


032644 


062701 


000036 


ADD 


«36.R1 


:YES ADJUST Rl FOR PE TALLIES 


4524 


032650 


060401 


5»: 


ADD 


R4.R1 


J ADD THE OFFSET TO THE LUN POINTER 


4525 


032652 


116202 


000000 


novB 


CnD(R2).R2 


(GET THE COMMAND PRIMATIVE 


4526 


032656 


042702 


000007 


BIG 


«7.R2 


s CLEAR OFF THE MODIFIERS 


4527 


032662 


022702 


000040 


CMP 


#ACC.R2 


sis IT A UNIT ACCESS TYPE COMMAND 7 


4528 


032666 


103405 




BLO 


10« 


:G0 00 UNIT ACCESS ERROR 


4529 


032670 


C22702 


000020 


CMP 


«UR . R2 


: IS IT A URTIE COMMAND ? 


4530 


032674 


001402 




SEQ 


10* 


; YES. GO TALLY ERROR 


4531 


032676 


062701 


000002 


ADD 


«2.R1 


iHO, ADD READ OFFSET TO ERRTYP 


4532 


032702 


005211 


10$: 


INC 


CRD 


sINC THE ERROR COUNT 


4533 


032704 






POP 


<R2.R1> 


! RESTORE Rl AND R2 


4534 


032710 


000240 




NOP 


sTEMP 




4535 


032712 


000207 




RTS 


PC 


;EXIT 



4536 



GLOBAL ARLAS 
PRINT ERROR 



4S38 
4539 
4540 
4541 
4S42 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
4551 



4552 
4553 
4554 
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.SBTTL PRINT ERROR 



032714 

032714 010337 003740 

032720 010437 003742 
032724 

032724 104460 

032726 000240 

032730 000207 



PRINT ERROR 

Called By 
Calls To 
Register Inputs 
Register Outputs 



ERRDEC. ERROEI. ERRDEL 
ERROR 



PRIERR: 



MOV 

MOV 

ERROR 

TRAP 

NOP 

RTS 



R3.R3SAVE 
R4,R4SAVE 

CtERROR 

sTEMP 

PC 



SAVE R3 
SAVE R4 
ERROR MACRO 



.-RETURN 



GLOBAL AREAS 
COnPARE DATA 

4556 
4557 
4550 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
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.SBTTL COMPARE DATA 



SEQ 113 



: COMPARE DATA 

iCallcd By 
:Calls To 
: Inputs 
i Output* 

s Rag later Inputs 
; Register Outputs 



456B 


A*^7*0 

032732 








KJlrun 1 : 










U3c 1 oc 










Dl ICM 


<R1.R2.R3.R5> 






AT07T0 
UOc r 3c 


A1 A1 ASi 








nu V 


R1,-(SP) 


! {PUSH 




AT07VA 

u3e r 3a 


A1 A^AJl 








nuv 


R2.-(SP) 


s I PUSH 




n'V37YA 
U3c ' 


At AXA<« 

uiv jao 








nuv 


R3.-CSP) 


J (PUSH 




u3c 1 au 


uxvsao 










R5.-CSP) sjPUSH 
P.TRBC(R3).P.BCNT(R3) 


a3 /o 


U3e lai 


VcO JO o 


AAAAAO 








a3f 1 


U3c r SU 


PA1 AOA 








DC W 


5» 




aa f « 


AT07^^ 
u3erS^ 


ULc rus 


A1 1 xnt, 

UXX JUO 






nuv 


•RLST.R5 




ao f o 


Vdc (SO 


vxc ruc 


01 XI 

uxdxoo 








«L«ERRTBL.R2 




aa fa 


U3e f Oc 


vleScc 








Mnu 

nuv 


(R5)»,(R2)» 
(R5)».CR2>* 




Aa7a 
as f9 


udc • oa 


UlcSec 








MOV 
nwv 




as ro 


Udc ( Ow 

rt^377n 
U3c r r U 


Ot oa99 








Mnv 

nuv 


(R5)*.(R2)» 




Aa77 
as f f 


m 1^19 

UXXSXc 








Mnv 

nuv 


(R5).(R2) 




as ro 


AX0773 
U3e 1 1 £ 










pnp 


<R5.R3.R2,R1> 






AX077a 
u3e ire 


UXcOUS 








Mnv 

1 lU T 


(SP)».R5 


::POP 




AX0774 

U3c r ra 


A1 9<;A'* 








Mnv 


CSP)».R3 


:sPOP 




AU077JL 

u3e r ro 


A1 9£A9 








Mnv 


CSP)».R2 


>:POP 




OXXAAA 
UOOvvv 


A1 9AA1 
UXcOvX 








MOV 


CSP)».R1 


jsPOP 


as f 7 




AAA 7X7 
Uv^ r d r 


OX9#>94 








PC.ERRTLY 




A can 
a sou 


U33vruo 


1 A<(AY7 
XvSvd r 


A1 T1 <;7 

vXOXO 1 






n PR 


ERRTYP*! 




45111 


033012 


004737 


032714 






JSR 


PC.PRIERR 




4582 


033016 


000157 


033414 






JMP 


451 




4583 


033022 


005057 


003622 




51: 


CLR 


CMPERR 




4584 


033026 


042764 


000020 


000026 




BIC 


♦OD0FLG.LUNFLG(R4) 


4585 


053034 


016337 


000014 


003710 




MOV 


P.BCNT(R3),R8 




A566 


033042 


005057 


005712 






CLR 


R9 




4567 


055046 


052757 


000001 


003710 




BIT 


«dIT0.R8 




4566 


055054 


001406 








BEQ 


10 > 




4589 


055056 


042757 


000001 


003710 




BIC 


«BITC.Re 




4590 


055064 


052764 


000020 


000026 




BIS 


#000FLG.LUNFLG(R4) 


4591 


055072 


012701 


005624 




101: 


MOV 


«6YTA00.R1 




4592 


055076 


022757 


000003 


002114 




CMP 


*3. LITEST 




4593 


053104 


001003 








BNE 


11* 




4594 


035106 


012702 


070612 






MOV 


MRTBUF-2.R2 




4595 


055112 


000402 








BR 


12> 




4596 


055114 


012702 


0/0614 




IK: 


MOV 


MRTBUF.R2 




4597 


055120 


012703 


050614 




12* : 


MOV 


«R0BUr.R3 




4598 


0531 ?4 


012705 


003650 






MOV 


40ATBL.R5 




4599 


033130 


022322 






14* : 


CMP 


CR3)*.(R2)* 




4600 


035152 


001447 








BEQ 


25* 




4601 


055154 


126362 


177776 


177776 




CMPB 


L0BYTE(R3).L0BYTE(R2) 


4602 


055142 


001415 








BEQ 


15* 




4603 


055144 


005237 


003622 






INC 


CMPERR 




4604 


0531S0 


022701 


003650 






CMP 


•TBLENO.Rl 





:SAVE R1.R2.R3.R5 
Rl ON STACK 
R2 ON STACK 
R3 ON STACK 
R5 ON STACK 

jAS MANY BYTES READ AS WRITTEN ? 

J BRANCH IF YES 

{PUT THE RLS TABLE ADDRESS IN R5 
:PUT THE ERROR TABLE ADORES IN R2 
:MOV THE RLS TABLE TO THE ERROR TABLE 

i 



s RESTORE REGISTERS 
STACK INTO R5 
STACK INTO R3 
STACK INTO R2 
STACK INTO Rl 

GO TALLY THE ERROR 
CLEAR THE LUN POINTER 
GO PRINT THE ERROR 
GET OUT IF THERE WAS AN ERROR 
CLEAR LOCATION CMPERR 
CLEAR THE ODD BYTE COUNT FLAG 
PUT THE TAPE RECORD BYTE COUNT IN R8 
CLEAR T^ BYTE ADDRESS COUNTER 
IS THE BYTE COUNT ODD 
BRANCH IF NOT 
MAKE THE COUNT EVEN 
SET THE ODD BYTE FLAG 
LET Rl POINT TO THE ADDRESS TABLE 
ARE WE IN TEST 3 ? 
NO, SO JUST SET ROBUF IN BUFAOR 
ir.T R2 POINT TO THE URITE BUFFEH 

LET R2 POINT TO THE URITE BUFFER 
LET R3 POINT TO THE READ BUFFER 
LET R5 POINT TO T>« ERROR DATA TABLE 
COMPARE THE FIRST WORD OF DATA 
BRANCH IF THEY ARE EQUAL 
COMPARE THE LOU BYTE 
BRANCH IF EQUAL 
ADD 1 TO THE ERROR COUNT 
IS THERE ROOM TO SAVE THIS DATA ? 
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COMPARE DATA 



•oUa 


ATT1 KA 


AA1 A%t\ 
vUX^Xw 








DCW 






XXOOl w 


1 7777ft 
Lilt ro 










vddXOc 


1X0C03 


1 mitt 


OOOOO 1 
wvwx 




HOUR 






wXw ( C X 








MOV 




nXXI 7A 


Ww ' 








TST 




033176 


WW JCw ' 


OOS71? 






INC 






XCVWVC 


177777 


177777 




CMPB 






wwX^ X W 








www 






005237 

w wc w * 


003622 






INC 




OSS?16 


022701 

WC C * W X 


003650 

WW Ww WW 






CMP 






001410 

wV X^X V 








BEQ 




033224 


116315 


mm 






fiOVB 


7 

^wX ' 




1 1626S 

X XwCwW 


177777 


000001 

WwVw X 




MOVB 


^wXO 




013721 

wX W f 4CX 


003712 

WWW ■ XC 






MOV 


X w 


033242 


005725 








TST 




OSS244 


005237 


003712 




201 • 

fcW T • 


INC 

XI «w 


X 


0332*0 


000403 

WW^W VWW 








BR 




062737 


000002 


003712 


251 • 


ADO 




033260 


023737 


003712 


003710 


30t : 


CMP 


4694 


033266 


C01320 








SNE 




033270 


032764 


000020 


000026 




BIT 


4626 


033276 


001414 








BEQ 


4627 


033300 


121312 








CMPB 


4628 


033302 


001412 








BEQ 


4629 


033304 

www WW V 


005237 


003622 






INC 


4630 


033310 


022701 


003650 






CMP 


4631 


033314 


001405 








BEQ 


4632 


033316 


111315 








MOVB 


4633 


033320 


111265 


000001 






MOVB 


4634 


033324 


013721 


003712 






MOV 


4635 


033330 


005737 


003622 




35*: 


TST 


4636 


033334 


001423 








BEQ 


4637 


033336 


012705 


011276 






MOV 


4638 


033342 


012702 


013166 






MOV 


4639 


033346 


012522 








MOV 


4640 


033350 

WWW WWW 


012522 








MOV 


4641 


033352 


012522 








MOV 


4642 


033354 


011512 








MOV 


4643 


033356 
033356 
033360 
033362 
033364 


012605 
012603 
012602 
012601 








POP 
MOV 
MOV 
MOV 
MOV 


4644 


033366 


004737 


032624 






JSR 


4645 


033372 


105037 


013167 






CLRB 


4646 


033376 


004737 


032714 






JSR 


4647 


033402 


000404 








BR 


4648 


033404 
033404 
033406 
033410 
033412 


012605 
012603 
012602 
012601 






40»: 


POP 
MOV 
MOV 
MOV 
MOV 


4649 


033414 


000240 






451: 


NOP 


4650 


033416 


000207 








RTS 



Pas* 58-1 



SEQ 114 



15» 

L0BYTECR3),(R5) 

L0BYTE(R2).0NE(R5) 

R9.(R1)» 

(R5)* 

R9 

HIB YTE ( R3 ) . HIB YTE ( R2 ) 
20 » 

CMPERR 
•TBLEND.Rl 
20 1 

HIBYTE(R3).(R5) 

HIBYTE(R2).0NE(R'5} 

R9.(R1)* 

(R5)* 

R9 

30< 

•2,R9 

R9.R8 

14 « 

*00DFLG.LUNFLG(R4) 
351 

(R3).(R2) 
35* 

CMPERR 

♦TBLEND.Rl 

35* 

(R3),(R5) 

(R2).0NECR5) 

R9.(R1)» 

CMPERR 

40* 

♦DCMPT.R5 
♦L*ERRTBL.P2 
(R5)*.(R2)* 
(R5)*.(R2)* 
(R5)».(R2)* 
lR'>).(R2) 
<R5.R3.R2.R1> 
(SP)».R5 
(SP)».R3 
(SP)».R2 
(SP)».R1 
PC.ERRTLY 
ERRTYP»1 
PC.PRIERR 
45* 

<R5.R3.R2.R1> 
(SP)*.R5 
(SP)».R3 
(SP)».R2 
(SP)»,R1 
J TEMP 
PC 



5 POP 

:POP 
8 POP 
»sPOP 



;jPOP 
.jPOP 
!;POP 
jjPOP 



(BRANCH IF NOT 
LOU READ BYTE IN SAVE BYTE 
LOW WRITE BYTE IN SAVE BYTE 
SAVE THE ADDRESS FOR PRINTING 
POINT R5 TO NEXT TABLE LOCATION 
ADD 1 TO THE BYTE COUNT 
COMPARE THE HIGH BYTE 
BRANCH IF THEY ARE THE SAME 
'DO 1 TO THE FRROR COUNT 
ROOM TO SAVE THIS DATA 7 
BRANCH IF NOT 

HI READ BYTE TO LOW SAVE BYTE 

HIGH WRITE BYTE TO HIGH SAVE BYTE 

SAVE THE ADDRESS TO PRINT 

POINT R5 TO THE NEXT TABLE LOCATION 

ADD 1 TO THE BYTE COUNTER 

BRANCH 

ADD 2 TO THE BYTE COUNT 

HAVE WE COMPARED THEM ALL 7 

NO. GO 00 SOME MORE 

WAS IT AN 000 BYTE COUNT ? 

BRANCH IF NOT 

COMPARE THE LOW BYTES 

BRANCH IF THEY MATCH 

ADD 1 TO THE ERROR COUNT 

IS THERE ROOM FOR THIS DATA ? 

BRANCH 7F NOT 

LOW READ BYTE IN THE LOW SAVE BYTE 
LOW WRITE BYTE TO HIGH SAVE BYTE 
SAVE THE ADDRESS TO PRINT 
DID WE HAVE ANY ERRORS / 
BRANCH TO EXIT IF NOT 

POINT R5 TO THE DATA COMPARE ERROR TABLE 
POINT R2 TO THE ERROR TABLE 
MOVE THE DATA COMPARE COMPARE TABLE 
TO THE ERROR TABLE 



i RESTORE THE REGISTERS 
STACK INTO R5 
STACK INTO R3 
STACK INTO R2 
STACK INTO Rl 

:G0 TALLY THE ERROR 

s CLEAR THE UPPER BYTE OF ERROR TYPE 

iGO PRINT THE ERROR 

J EXIT 

(RESTORE THE REGISTERS 
STACK INTO R5 
STACK INTO R3 
STACK INTO R2 
STACK INTO Rl 



{RETURN 



GLOBAL AREAS 
UNJAM 

4652 
4653 
4654 
4655 
4656 
4657 
4658 
4659 
4660 
4661 
4662 
4663 
4664 
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. SBTTL UNJAM 



I •••••••••••••••• 

I UNJAM 

! Called By 
sCalla To 
: Inputs 
I Outputs 

t Rag! star Inputs 
iRagistar Outputs 



4665 


033420 








UNJAM: : 






4666 


053420 


005737 


003522 






TST 


OUMPKT 


4667 


033424 


001444 








BEQ 


151 


4668 


033426 


023764 


003724 


000006 




CMP 


SECRNS.CM0SEQ(R4) 


4669 


033434 


001440 








BEQ 


15» 


4670 


033436 


016437 


000006 


003614 




MOV 


CMOSEQ(R4).SAV0IF 


4671 


033444 


163737 


003724 


003614 




sue 


SECRNS.SAVOIF 


4672 


033452 


063737 


007614 


003536 




ADD 


SAVDir.CMOCNT 


4673 


033460 


063737 


003614 


003540 




ADO 


SAVOIF.RSPCNT 


4674 


033466 


042737 


000100 


003674 




BIC 


♦CMOONE.PCFLAG 


4675 


033474 


163764 


003614 


000034 




sue 


SAV0IF.0BJFDL(R4) 


4676 


033502 


103002 








BCC 


5» 


4677 


033504 


005364 


000036 






DEC 


06JF0H(R4) 


4678 


033510 


022737 


000004 


003602 


5t: 


CMP 


«N.SUBCNT 


4679 


033516 


001002 








BNE 


lot 


46S0 


033520 


005037 


003602 






CLR 


SUeCNT 


4681 


033524 


005237 


003602 




lot: 


INC 


suecNT 


4682 


03SS30 


005337 


003614 






DEC 


SAVOIF 


4683 


033534 


001365 








BNE 


5t 


4684 


033536 


052764 


000002 


000026 


15t: 


BIS 


«SEREXC.LUNFLG(R4) 


4685 


033544 


000240 








NOP 


jTEMP 


4686 


033546 


000207 








RTS 


PC 


4687 


033550 










ENOMOO 





4688 



SEQ 115 



{ARE UE ISSUEING NULL COMMANDS 

sYES , THEN EXIT 

J IS IT THE ONLY COMMAND OUT ? 

,YES , THEN EXIT 

J SET UP TO UNJAM THE QUEUES 

{SUBTRACT CURRENT FROM THE HIGHEST 

•.ADJUST THE COMMAND COUNT 

: ADJUST THE RESPONSE COUNT 

! CLEAR THE ALL COMMANDS ISSUED FLAG 

: ADUST THE OBXCT COUNT 

iGET OUT IF NO CARRY 

jOTHERUISE. ADJUST THE HIGH WORD 



tSE1 THE SERIOUS EXCEPTION FLAG 
J RE TURN 
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Clear eot 



4690 








.SBTTL 


CLEAR 


EOT 


4691 














4692 














4693 








i CLEAR 


EOT 




4694 














4695 














4696 


033550 






CLREQT : 






4697 


033550 








PUSH 


<R1.R2.R4> 




0S3550 


010146 






nov 


Rl. -CSP) 




033552 


010246 






nov 


R2.-(SP) 




033554 


010446 






MOV 


R4. -(SP) 


4S98 


033556 


005002 






CLR 


R2 


4699 


033560 


012701 


177776 




nov 


*-2. .Rl 


4700 


^33564 


012704 


002522 




nov 


M.UN0.R4 


4701 


033570 


062701 


000002 


5(: 


ADO 


#2. .Rl 


470i 


033574 


062702 


000001 




AOO 


•1..R2 


4705 


035600 


062704 


000224 




AOO 


«LUNSTP.R4 


4704 


035604 


042761 


000004 003526 




BIG 


•EOT.DRINUSCRl) 


4705 


035612 


005057 


005706 




CLR 


UEOT 


4706 


035616 


C25702 


002012 


101: 


CMP 


LIUNIT.R2 


4707 


055622 


001562 






BNE 


5t 


4706 


055624 








POP 


<R4.R2.R1> 




055624 


012604 






MOV 


(SP)*.R4 




055626 


012602 






nov 


(SP)».R2 




055630 


012601 






nov 


CSP)».R1 


4709 


055652 


000240 






NOP 


J TEMP 


4710 


055654 


000207 






RTS 


PC 



sSAVE Rl. R2. AND R4 

:>PUSH Rl ON STACK 

t (PUSH R2 ON STACK 

t;PUSH R4 ON STACK 

(CLEAR OUT R2 

I SET Rl TO THE FIRST UNIT 

sLET R4 EQUAL THE FIRDT LUN 

i AOO 2 TO THE UNIT POINTER 

{ADO 1 TO R2 

I SET R4 TO THE NEXT LUN 

iCLFAR THE EOT BIT IN ORINUS 

J CLEAR THE EOT FLAG 

{HAVE WE DONE THEM ALL 

I NO. KEEP GOING TILL ALL DONE 

(RESTORE R4. R2. ANO Rl 

::POP STACK INTO R4 

{ (POP STACK INTO R2 

ssPOP STACK INTO Rl 

: RETURN 



GLOBAL AREAS flACRO Y0S.02 
SEED SETUP AND SAVE 



4712 
4713 
4714 
4715 
4716 
4717 
4718 
4719 



4720 
472X 
4722 
4723 
4724 
4725 
4726 
4727 
4728 



4729 
4730 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4736 



4739 
4740 
4741 
4742 
4743 
4744 
4745 
474* 
4747 



4748 
4749 

4750 



033«36 
03S63« 
033«S« 
033*40 
03364? 
033646 
033652 
033660 
033666 
033674 
033700 
0SS702 
0SS704 
033704 
033706 
033710 
033712 



033714 
033714 
0SS714 
033716 
033720 
033724 
03S730 
033736 
033744 
0SS7S2 
033756 
033760 
033762 
033762 
033764 
033766 
033770 



010146 
010446 
015701 
012704 
016464 
016464 
016464 
062704 
005301 
001363 

C12604 
012601 
000240 
000207 



010146 
010446 
013701 
012704 
016464 
016464 
016464 
062704 
005301 
001363 

012604 
012601 
000240 
000207 
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.SeTTL SEED SETUP AND SAVE 



SEQ 117 



SEED SETUP 



002012 
002322 
000174 
000176 
000200 
000224 



000202 
000204 
000206 



SOSTUP: 



5t: 



PUSH 

nov 
fiov 
nov 
nov 
nov 
nov 
nov 

ADO 
OEC 
BNE 
POP 

nov 
nov 

NOP 
RTS 



SEED SAVE 



002012 
002322 
000202 
000204 
000206 
000224 



000174 
000176 
000200 



SDSAVE: 



St: 



PUSH 

nov 
nov 
nov 
nov 
nov 
nov 
nov 

ADO 

DEC 



POP 

nov 
nov 

NOP 

RTS 



iiPUSH Rl ON STACK 
iiPUSH R4 ON STACK 



<R1.R4> 
Rl.-(SP) 
R4.-(SP) 
LtUNIT.Rl 
4LUN0.R4 

SE01(R4).SEED1(R4) 
S€02(R4).SEE02(R4) 
SE0SCR4},SEE03(R4) 
fLUNSTP.R4 
Rl 
SI 

<R4,R1> 

(SP)*.R4 I (POP STACK INTO R4 

(SP)*.R1 iiPOP STACK INTO Rl 

iTEnP 

PC t 



<R1.R4> 
Rl.-(SP) 
R4.-CSP) 
LfUNIT.Rl 
•LUN0,R4 

SEE01(R4).SE01(R4) 
SEE02CR4),SE02CR4) 
SEED3CR4),SE0SCR4) 
4LUNSTP.R4 
Rl 
St 

<R4.R1> 
(SP)«.R4 
(SP)*.R1 
J TEMP 
PC 



i I PUSH Rl ON STACK 
mPUSH R4 ON STACK 



t 
{ 
I 
i 
I 
i 

tiPOP STACK INTO R4 
iiPOP STACK INTO Rl 



GLOBAL AREAS 
PATTERN CLEAR 
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SCO 118 



4752 








.SBTTL PATTERN 


CLEAR 




4753 














4754 














4755 








i PATTERN CLEAR 






4756 














4757 








iTHIS ROUTINE DOES NOT SAVE 


R4 AND THcRtrORE 


4758 








: PLACE OTHER THAN A TEST. 




4759 














4 fOv 








PATCLR: 






4761 


033772 


012704 


002322 


MOV 


«LUN0.R4 


I 


4762 


03377e 


005064 


000024 


1*: CLR 


PATSAVCR4) 


1 


4765 


034002 


022704 


003216 


CMP 


#LUN3.R4 


i 


4764 


034006 


001403 




BEQ 


2% 


■ 


4765 


034010 


062704 


000224 


ADO 


0LUNSTP.R4 




4766 


034014 


000770 




BR 


11 


■ 


4767 


034016 


000240 




2*: NOP 


8 TEMP 




4768 


034020 


000207 




RTS 


PC 


■ 


4769 














4770 














4771 















GLOBAL AREAS 
CORE DUMP 



4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
4781 
4782 
4783 
4 784 
4785 



034022 



4 786 



4787 
4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 



4800 
4801 

4802 
4803 
4804 
4805 
4806 
4807 
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.SBTTL CORE DCr»» 



SEQ 119 



CORE DUMP 

THIS ROUTINE IS DESIGNFD TO DUMP ALL CRITICAL MEMORt LOCATIONS ON 
OCCURRENCE OF ERRORS. UMEN ENEABLED Br THE OPERATOR VIA THE SOFTWARE 
QUESTIONS. IT IS INTENDED PRIMARILY AS AN AID ^0 DEBUGGING THE 
PROGRAM. BUT MAY PROVE U EFUL IN ANALYZING CERTAIN DEVICE ERRORS 
AS WELL. 



CORDMP : 



034022 






PUSH 


034022 


010146 




MOV 


034024 


010246 




MOV 


034026 






PRINTF 


034026 


010546 




MOV 


034030 


010446 




MOV 


034032 


010346 




MOV 


034034 


C 10246 




MOV 


034036 


010146 




MOV 


034040 


012746 


020344 


MOV 


034044 


012746 


000006 


MOV 


034050 


010600 




MOV 


034052 


104417 




TRAP 


034054 


062706 


000016 


ADD 








MOV 








MOV 








1»: PRINTF 








ADD 








ADD 








CMP 








BHI 


034060 


012701 


002322 


MOV 


034064 


012702 


002322 


MOV 


034070 




1$: PRINTF 


034070 


016246 


000006 


MOV 


034074 


016246 


000004 


MOV 


034100 


016246 


000002 


MOV 


034104 


011246 




MOV 


034106 


010146 




MOV 


034110 


012746 


020466 


MOV 


034114 


012746 


000006 


MOV 


034120 


010600 




MOV 


034122 


104417 




TRAP 


034124 


062706 


000016 


ADD 


034130 


062701 


000010 


ADO 


034134 


062702 


000010 


ADO 


034140 


022701 


002546 


CMP 


034144 


101351 




BHI 


034146 


012701 


003442 


MOV 


034152 


012702 


003442 


MOV 



■'R1.R2> 

Rl.-(SP) ::PUSH Rl ON STACK 

R2. (SP) jsPUSH R2 ON STACK 

#0UMP.R1.R2.R3.R4,R5 

R5.-(SP) 

R4. (SP) 

R3.-(SP) 

R2.-(SP) 

Rl.-(SP) 

•OUMP.-(SP) 

♦6.-(SP) 

SP.RO 

C»PNTF 

•16. SP 

♦LUNO.Rl iPUT STARING ADDRESS IN Rl 

•LUN0.R2 :AND ANOTHER COPY IN R2 

♦0UMP2.Rl.(R2).2(R2).4(R2).6CR2) 



•10. Rl 
•10. R2 
•lOERTB.Rl 
1« 



: UPDATE Rl 
s UPDATE R2 

:ARE UE AT THE END OF DUMP AREA 
jKEEP GOING IF NOT 



•LUNO.Rl :PUT STARING ADDRESS IN Rl 

•LUN0.R2 ;AND ANOTHER COPY IN R2 

•DUMP2.R1.(R2).2CR2).4(R2).6CR2) 

6(R2).-{SP) 

4(R2). (SP) 

2(R2),-(SP) 

(R2). (SP) 

Rl. (SP) 

♦0UMP2. -(SP) 

•6.-(SP) 

SP.RO 

C»PNTF 

•16. SP 



•10. Rl 
•10. R2 
•LUNl.Rl 
II 

•PCMDBF.Rl 
•PCMDBF.R2 



UPDATE Rl 
UPDATE R2 

ARE UE AT THE END OF DUMP AREA 
KEEP GOING IF NOT 

:PUT STARING ADDRESS IN Rl 
iAND ANOTHER COPY IN R2 



GLOBAL AREAS 
CORE ourip 



4808 


0S41S6 




034156 




034162 




034166 




034170 






4809 


034176 




034176 




034202 




£\9M ^/\A. 




Oo4^1^ 








03421O 




0o42ee 


















4011 


OS* CM 


4Ble 


f\XA ^A 3 


AS 1 V 


Q3*C*0 


AM \ A 

4BI* 




ASIC 
40X9 




4B1D 


054634 


401 7 


AVA 3£A 


4B10 


AVA ^HA 




Uj460^ 




A VA A 
Oo4<! f U 




AVA 

U<34<! J 4 




ATA OTiL 




Ud4dUV 




Ua4 9U* 




AlA VAA 

Ud4dU# 




ATA VI n 
OA4 01w 




U04014 




U54Acw 




U043ec 




ATAT3A 
054524 




054550 




054554 




AXAXX<L 
05455O 




AXAXAA 
05454U 


AM^f\ 

4BeO 




4Bel 


fXXAXAA 
05454^ 


4B22 


AXA XKA 

054530 






4824 


034360 


4825 




4826 


034362 




034362 




034366 




034372 




034374 




034376 


4827 


034402 


4828 


034406 


4829 


034410 
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012746 020524 
012746 000001 
010600 
104417 

062706 000004 

016246 000006 
016246 000004 
016246 000002 
011246 
010146 

012746 020466 
012746 000006 
010600 
104417 

062706 000016 

062701 000010 

C62702 000010 

022701 005252 
101351 

012701 010732 

0x2702 010732 

012746 020524 
012746 000001 
010600 
104417 

062706 000004 

016246 000006 
016246 000004 
016246 000002 
011246 
010146 

012746 020466 
012746 000006 
010600 
104417 

062706 000016 

062701 000010 

062702 000010 
022701 010756 
101351 



012746 020524 
012746 000001 
010600 
104417 

062706 000004 

000240 
000207 



•9C 63 1 



SEQ 120 



•LINE 

•LINE.-(SP) 
♦1. (SP) 
SP.RO 
C»PNTF 
♦4.SP 

«0UnP2,Rl.(R2).2(R2).4(R2).6vR2) 

6(R2).-(SP) 

4(R2).-(SP) 

2(R2).-(SP) 

(R2).-(SP) 

Rl.-CSP) 

♦DUMP2.-(SP) 

•6.-(SP) 

SP.RO 

CIPNTF 

♦16. SP 



*10.H1 
•10. R2 
•RSPBFl.Rl 
2* 



UPDATE Rl 
UPDATE R2 

ARE UE AT THE END OF DUMP AREA 

KEEP GOING IF NOT 



•lOSTAT.Rl 
•I0STAT.R2 
•LINE 

•LINE. (SP) 

•l.-(SP) 

SP.RO 

CIPNTF 

•4.SP 

•DUriP2.Rl.(R2).2(R2}.4(R2).6(R2} 

6(R2).-(SP) 

4(R2).-(SP) 

2(R2).-(SP) 

(R2).-(SP) 

Rl.-(SP) 

•DUMP2. (SP) 

•6.-(SP) 

SP.RO 

CIPNTF 

•16, SP 



iPUT STARING ADDRESS IN Rl 
iAND ANOTHER COPY IN R2 



•10. Rl 
•10. R2 
•lOERTB.Rl 
3> 

•LINE 

•LINE.-(SP) 

•l.-(SP) 

SP.RO 

CIPNTF 

•4.SP 

<R2.R1> 

J TEMP 

PC 



UPDATE Rl 
UPDATE R2 

ARE UE AT THE END OF DUMP AREA 
KEEP GOING IF NOT 
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CORE DUMP 

4830 



GLOBAL AREAS MACRO Y0S.02 Monday 
BUFFER DUMP 

4832 
4633 
4834 
4835 
4836 
4837 
4638 
4639 

4640 034412 

4641 034412 

4842 034416 016301 000014 

4843 034422 012702 0S0614 

4844 034426 
034426 010146 
034430 012746 020425 
034434 012746 000002 
034440 010600 
034442 104417 
034444 062706 000006 

4645 

4646 034450 

034450 016246 000010 
034454 016246 000006 
034460 016246 000004 
034464 016246 000002 
034470 011246 
034472 012746 020466 
034476 012746 000006 
034502 010600 
034504 104417 
034506 062706 000016 

4847 034512 062702 000012 

4848 034516 162701 000012 

4849 034522 001401 
4650 034524 100351 
4651 

4852 034526 

4853 034532 000240 
4654 034534 000207 
4655 
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.SBTTL BUFFER DUMP 

i «•*••«•••«««*•************«**«**«« 

i BUFFER DUMP 

!tHIS routine UILL PRINT THE READ BUFFER FOR EVERY RECORD READ IN 
;TEST 5. 

BUFDMP : 



Pi IQM 


<R1.R2> 




MflV 


P.BCNT(R3).R1 


:GET NUMBER OF BYTES X-FEPRED 




#RDBUF.R2 


J GET BUFFER ADDRESS 


PRINTF 


♦DUMPl.Rl 


;PRINT NUMBER OF BYTES 




Rl. -CSP) 




MOV 


♦DUMPl.-(SP) 




MOV 


#2. -CSP) 






SP.RO 




TRAP 


C»PNTF 




ADD 


«6.SP 




PRINTF 


«DunP2.(R2),2(R2).4(R2).6(R2).10(R2) 


MOV 


10(R2),-(SP) 




MOV 


6(R2).-(SP) 




MOV 


4(R2).-CSP) 




MOV 


2(R2).-(SP) 




MOV 


(R2).-fSP) 




MOV 


#0UMP2.-(SP) 




MOV 


#6.-(SP) 




MOV 


SP.RO 




TRAP 


CIPNTF 




ADD 


♦16. SP 




ADO 


«12.R2 


5 ADJUST BUFFER POINTER 


SUB 


«12.R1 


: ADJUST BYTE COUNT 


BEQ 


5) 


ilF ZERO GET OUT 


BPL 


1» 


:KEEP GOING IF POSITIVE 


POP 


<R2.R1> 




NOP 


:TEMP 




RTS 


PC 





MISCELLANEOUS SECTIONS 
BUFFER ourip 



4667 
4S6S 
4896 
4897 
4898 
4899 
4900 
4901 
4902 
4903 
4904 

4905 
4911 



4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 



4923 
4924 



4925 
4926 



4927 
4928 



034536 



034536 
034536 

034536 
034536 
034540 
034542 
034544 
034552 
034554 
034556 
034562 
034566 
034572 
034600 
034602 

034606 
034606 
034612 
034616 
034622 
034624 
034626 

034632 
034632 
034636 
034642 
034644 
034646 

034652 
034652 
034656 
034662 
034664 
034666 

034672 
034672 
034676 
034702 
034706 
034712 
034716 
034720 



010146 
010446 
010546 
032737 
001015 
C05001 
005037 
012704 
013705 
032761 
001402 
000137 



013746 
012746 
012746 
010600 
104416 
062706 



012746 
012746 
010600 
104416 
062706 



012746 
012746 
010600 
104416 
062706 



016446 
016446 
016446 
012746 
012746 
010600 
104416 
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.TITLE MISCELLANEOUS SECTIONS 
.SBTTL REPORT COOING SECTION 

BGNMOD 



SEQ 123 



035652 



002074 
035770 
000002 



000006 



036036 
000001 



000004 



036103 
000001 



000004 



000044 

000042 
000040 
036157 
000004 



THE REPORT CODING SECTION CONTAINS THE 

"PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 



L»RPT: 



000200 003674 



002074 
002322 
002012 

000010 003526 1»: 



5$: 



BGNRPT 



PUSH 

MOV 

MOV 

MOV 

BIT 

BNE 

CLR 

CLR 

MOV 

MOV 

BIT 

BEQ 

JMP 

PRINTS 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTS 

MOV 

MOV 

MOV 

TRAP 

ADO 

PRINTS 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 



PUSH Rl ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 

sARE UE DROPPING A UNIT 
8 YES. ONLY PRINT STATS FOR THIS UNIT 
J SET Rl TO FIRST UNIT 
START WITH UNIT 0 
START WITH LUN BLOCK FOR UNIT 0 
INIT UNIT COUNTER 
HAS THE DRIVE BEEN DROPPED ? 
NO. PRINT ITS STATS 
OTHERWISE GET THE NEXT DRIVE 



<R1,R4.R5> 
Rl.-(SP) i 
R4.-(SP) i 
R5.-(SP) i 
♦DROPIT.PCFLAG 
5» 
Rl 

L*LUN 
•LUN0.R4 
LIUNIT.R5 
«0R0P.DRINUS(R1) 
5t 
151 

#STAT01.L$LUN i 

L$LUN,-(SP) 

#STAT01.-(SP) 

♦2.-(SP) 

SP.RO 

C»PNTS 

«6.SP 

«STAT02 

#STAT02.-CSP) 

*1,-(SP) 

SP.RO 

CIPNTS 

#4.SP 

#STAT04 

#STAT04.-(SP) 

#1.-(SP) 

SP.RO 

CIPNTS 

♦4.SP 

«STATOS , GSTEURCR4 ) . GSTERDC R4 ) . GSTEUA(R4 ) 

GSTEUA(R4),-CSP) 

GSTERDC R4).-(SP) 

GSTEWR(R4).-(SPD 

#STAT05.-(SP) 

«4.-(SP) 

SP.RO 

CIPNTS 



MISCELLANEOUS SECTIONS 
REPORT COOING SECTION 
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034722 


062706 


000012 


4929 








4930 


034726 








034726 


016446 


000050 




034732 


016446 


000046 




034736 


012746 


036215 




034742 


012746 


000003 




034746 


010600 






034750 


104416 






034752 


062706 


000010 


4931 








4932 


034756 








034756 


016446 


000056 




034762 


016446 


000054 




034766 


016446 


000052 




034772 


012746 


036256 




034776 


012746 


000004 




035002 


010600 






035004 


104416 






035006 


C62706 


000012 


4933 








4934 


035012 








035012 


016446 


000060 




035016 


012746 


036314 




035022 


0i?74f 


000002 




035026 


010600 






035030 


104416 






035032 


062706 


000006 


4935 








4936 


035036 








035036 


016446 


000062 




035042 


012746 


036360 




035046 


012746 


000002 




035052 


010600 






035054 


104416 






035CS6 


062706 


000006 


4937 








4938 


035062 








035062 


016446 


000070 




035066 


016446 


000066 




0550"'2 


016446 


000064 




035076 


012746 


036424 




035102 


012746 


000004 




03S106 


010600 






OSSllO 


104416 






035112 


062706 


000012 


4939 








4940 


035116 








035116 


016446 


000134 




035122 


016446 


000136 




035126 


016446 


000140 




035132 


016446 


000142 




035136 


012746 


036462 




035142 


012746 


000005 




035146 


010600 






035150 


1044 16 






03S1S2 


062706 


000014 
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ADD «12.SP 

PRINTS «STAT06 . GSFTURC R4 1 , GSFTRDC R4 ) 

MOV GSFTRD(R4).-(SP) 

MOV GSFTUR(R4).-(SP) 

MOV ♦STAT06.-(SP) 

MOV «3.-(SP) 

MOV SP.RO 

TRAP C*PNTS 

ADD «10,SP 

PRINTS *ST AT07 . GHRDURC R4 ) . GHRDRD( R4 ) , GHRDUAC R4 ) 

MOV GHR0UA(R4).-(SP) 

MOV GHRDRD(R4).-(SP) 

MOV GHRDUR(R4).-(SP) 

MOV ♦STAT07,-(SP) 

MOV ^.-(SP) 

MOV SP.RO 

TRAP C*PNTS 

ADD ♦12. SP 

PRINTS ♦STAT08,GMED£R(R4) 

MOV GMEDER(R4).-(SP) 

MOV ♦STAT08. -CSP) 

MOV ♦2.-(SP) 

MOV SP.RO 

TRAP CtPNTS 

ADD «6.SP 

PRINTS «STAT09,GDCERR(R4) 

MOV GDCERR(R4),-(SP) 

MOV ♦STAT09,-(SP) 

MOV ^.-(SP) 

MOV SP.RO 

TRAP CIPNTS 

ADD «6,SP 

PRINTS *STAT10 . GOTHURC R4 ) . GOTHRO( R4 ) , GOTHUAC R4 ) 

MOV G0THUA(R4).-(SP) 

MOV G0THRD(R4).-(SP) 

MOV G0THUR(R4),.(SP) 

MOV ♦STATIO.-CSP) 

MOV »4.-(SP) 

MO". 5P.R0 

TRAP :«PNTS 

ADO 12. SP 

PRINTS >ST AT 1 1 . GURBY4( R4 ) . GUR8 Y3( R4 ) . GURBY2( R4 ) . GURB Yl( R4 ) 

MOV 3URBY1CR4),-(SP) 

MOV GURBY2(R4).-CSP) 

MOV GURBY3(R4).-(SP) 

MOV GURBY4(R4).-(SP) 

MOV ♦STATU. -CSP) 

MOV ♦S.-CSP) 

MOV SP.RO 

TRAP CtPNTS 

ADD ♦M.SP 



MISCELLANEOUS SECTIONS 
REPORT CODING SECTION 
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4941 
4942 



4943 
4944 



4945 
4946 



4947 
4946 



4949 

4950 



4951 
4952 



4953 
4954 











A1 M C 








AAA1 At^ 


A TCI ^ti 

U3D1DO 




vvvl^U 


Q3^1 re 




AAA1 <0 


035176 


012746 


036534 


035202 


012746 


000005 




A 4 AJLAA 
VOVU 






1 AAA 1 








AAAAi A 








035216 


016446 


000072 


035222 


012746 


036606 




01 27Ali 


000009 




VXV9W 












0A970<« 
VwC r Vv 


000006 
vv wvv 


035242 






035242 


012746 


036061 




012746 


OOOOOl 
vvwvx 




010600 

w X Vv V V 














000004 

VWVV^ 










012746 


036103 




012746 


000001 

VV W V A 


035272 


010600 




035274 


104416 




v^^c r ^ 


062706 


000004 

V VV V v^ 


035302 








01644l> 
V xw^^v 


000102 
vvvxvc 


V w J JVv 


016446 
vxv^^v 


000100 

vv V X V V 


035312 


016446 


000076 

WWW f w 




012746 


036157 


035322 


012746 


000004 


035326 


010600 




03S3S0 


1 044 1 6 

X XV 




0SSS3P 


069706 

VVC f vv 


000012 


035336 






035336 


016446 


000106 


035S42 


016446 


000104 


035346 


012746 


036215 


035352 


012746 


000003 


035356 


010600 




035360 


104416 




035362 


062706 


000010 


035366 






035366 


016446 


000114 


035372 


016446 


000112 


035S76 


016446 


000110 
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SEQ 125 



PRINTS 


dST AT12 GRDB Y4 ( R4 ) . GRDB Y3( R4 ) . GRDBY2( R4 ) . GRD6 Y 1 ( R4 ) 


MOV 


GRDBY1(R4) . -CSP) 


MOV 


GR0BY2(R4) -CSP) 


MOV 


GR0BY3(R4) -CSP) 


MOV 


GRDBY4CR4) -CSP) 


MOV 


#STAT12. -CSP) 


MOV 


♦5. -(SP) 


MOV 


SP.RO 


TRAP 


CIPNTS 


ADD 


#14. SP 


PRINTS 


«STAT13.GCRDRP(R4) 


MOV 


GCRDRP(R4),-(SP) 


MOV 


#STAT13. -CSP) 


MOV 


♦2, -CSP) 


MOV 


SP.RO 


TRAP 


CtPNTS 


ADD 


46. SP 


PRINTS 


♦STAT03 


MOV 


♦STAT03. -(SP) 


MOV 


•1. -CSP) 


MOV 


SP.RO 


TRAP 


C^PNTS 


ADD 


»4.SP 


PRINTS 


«STAT04 


MOV 


♦STAT04. -(SP) 


MOV 


♦l.-(SP) 


MOV 


SP.RO 


TRAP 


CIPNTS 


ADD 


M.SP 


PRINTS 


«STAT05 . PSTEUR( R4 ) , PSTERD(R4 } , PSTEUA(R4 ) 


MOV 


PSTEUA(R4).-(SP) 


MOV 


PSTERD(R4).-(SP) 


MOV 


PSTEUR(R4). -(SP) 


MOV 


♦STAT05.-(SP) 


MOV 


♦4.-(SP) 


MOV 


SP.RO 


TRAP 


CIPNTS 


ADD 


♦12, SP 


PRINTS 


♦STAT06.PSFTUR(R4).PSFTRD(R4J 


MOV 


PSFTR0(R4).-(SP) 


MOV 


PSFTUR(R4),-(SP) 


MOV 


♦STAT06.-(SP) 


MOV 


♦3,-(SP) 


MOV 


SP.RO 


TRAP 


CIPNTS 


ADD 


*10.SP 


PRINTS 


♦STAT07 . PHRDUR( R4 ) . PHRDRO( R4 ) . PHR0UA(R4 ) 


MOV 


PHRDUA(R4).-(SP) 


MOV 


PHRDRD(R4).-(SP) 


MOV 


PHRDUR(R4). (SP) 



MISCELLANEOUS SECTIONS 
REPORT COOING SECTION 



4955 
4956 



4957 
4956 



4959 
4960 



4961 
4962 



4963 
4964 



4965 
4966 



035402 
035406 
035412 
035414 
035416 

035422 
035422 
035426 
035432 
0S54S6 
035440 
035442 

035446 
035446 
035452 
035456 
035462 
035464 
035466 

035472 
035472 
035476 

035502 
035506 
035512 
035516 
035520 
035522 

03SS26 
035526 
035532 
035536 
035542 
035546 
035552 
035556 
033560 
035562 

035566 
035566 
035572 
035576 
035602 
035606 
035612 
035616 
035620 
035622 

035626 
035626 
035632 



012746 
012746 
010600 
104416 

062706 



016446 
012746 
012746 
010600 
104416 
062706 



016446 
012746 
012746 
010600 
104416 
062706 



016446 
016446 
016446 

012746 
012746 
010600 
104416 
062706 



016446 
016446 
016446 
016446 
012746 
012746 
010600 
104416 
062706 



016446 
016446 
016446 
016446 
012746 
012746 
010600 
104416 
062706 



016446 
012746 
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036256 
000004 



000012 



000116 
036314 
000002 



000006 



000120 
036360 
000002 



000006 



000126 
000124 
000122 
036424 
000004 



000012 



000154 
000156 
000160 
000162 
036462 
000005 



000014 



000164 
000166 
000170 
000172 
046534 
000005 



000014 



000130 
036606 
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MOV •STAT07.-CSP) 

MOV M.-CSP) 

MOV SP.RO 

TRAP CIPNTS 

ADO «12.SP 

PRINTS *STAT08.PMEDERCR4) 

MOV PMEDER(R4),-(SP) 

MOV ♦STAT08,-CSP) 

MOV ♦2.-CSP) 

MOV SP.RO 

TRAP CIPNTS 

ADD «6 . SP 

PRINTS »STAT09.P0CERRCR4) 

MOV PDCERR(R4). -(SP) 

MOV ♦STAT09. -CSP) 

MOV »2.-(SP) 

MOV SP.RO 

TRAP C»PNTS 

ADO «6 . SP 

PRINTS «STAT 10 , POTHWRC R4 ) . POTHROC R4 ) , P0THUA(R4 ) 

MOV P0THUA(R4)..(SP) 

MOV POTHROC R4).-(SP) 

MOV P0THUR(R4)..(SP) 

MOV ♦ST AT 10. -CSP) 

MOV #4. -CSP) 

MOV SP.RO 

TRAP C»PNTS 

ADD •12. SP 

PRINTS •STATU . PURB Y4( R4 ) , PURBY3(R4 ) . PURBY2C R4 ) . PURBYl ( R4 } 

MOV PURBY1(R4).-CSP) 

MOV PURBY2(R4),-(SP) 

MOV PUR8Y3(R4}.-(SP) 

MOV PURBY4(R4).-(SP) 

MOV #STAT11,.(SP) 

MOV W.-CSP) 

MOV SP.RO 

TRAP CIPNTS 

ADD •U.SP 

PRINTS •STAT12 . PR0BY4( R4 ) . PRDBYSC R4 ) . PRDBY2C R4 ) . PROBYIC R4 ) 

MOV PR0BY1(R4).-(SP) 

MOV PRDBY2(R4).-(SP) 

MOV PRDBY3(R4).-(SP) 

MOV PRDBY4(R4).-(SP) 

MOV ♦STAT12.-(SP) 

MOV •S.-CSP) 

MOV SP.RO 

TRAP CIPNTS 

ADD •14. SP 

PRINTS •STAT13.PEDRP(R4) 

MOV PEDRP(R4).-(SP) 

MOV •STAT13.-(SP) 



niSCELLANEOUS SECTIONS 
REPORT COOING SECTION 
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•2.-(SP) 
SP.RO 
C»PNTS 
♦6.SP 

♦OROPIT.PCFLAG 
25» 

M.UNSTP.R4 

»2.R1 

L*LUN 

R5 

20$ 

1< 

CLOCK 



SEQ 127 





0356 S6 


012746 


AAAAA9 




MAU 

nuv 




035642 


0I060C 






MAU 

nuv 




035644 


1 Ail d 1 X 






TDAD 




035646 


AX ^ '7AX 

062 /06 






Ann 


















U3c f 3 / 


AAAOAA AATil7A 


1 ^ ft . 




4to9 


099060 


ATA 






AMP 


4t f o 






nA^133A 




Ann 






AA07A1 
002 rOl 


UVVVVC 




MUU 








nn3n7A 






#9 f 3 




AACTAC 






UCL 


49/4 




AA1 AAO 






DCW 


49 /3 


AVC7AO 


AA/)1 T7 


nXA^73 




IHP 


#9 f O 


AVit7n& 




WccXO 




T^TR 


AQ77 
49 f f 




AA1 








A07A 
49 fO 










PDTNTP 






AACAAA 










vSO f XD 
























035724 


153716 


002220 




BISB 




035730 


005046 






CLR 




035732 


153716 


002217 




BISB 




035736 


012746 


020037 




MOV 




035742 


012746 


000004 




MOV 




035746 


010600 






MOV 




035750 


104417 






TRAP 




035752 


062706 


000012 




ADO 


4979 


035756 






25* : 


POP 


4980 


035764 








EXIT 




035764 


000167 






.WORD 




035766 


000652 






.WORD 



251 

«TIME . <B . H0URS> . <b .HINUTE> . <8 . SEC0N0> . 
-(SP) 

SECOND. (SP) 
-(SP) 

MINUTE. (SP) 

(SP) 
HOURS. (SP) 
•TIME.-(SP) 
♦4. -(SP) 
SP.RO 
C»PNTF 
•12. SP 

<R5.R4.R1> :RESTORE REGS 

RPT 

JUMP 

L10007-2-. 



ARE WE 0R0PPI»4G A UNIT 
YFS. ONLY PRINT STATS FOR THIS UNIT 
R4 POINTS TO NEXT LUN BLOCK 
POINT Rl TO THE NEXT UNIT 
POINTS TO NEXT UNIT NUMBER 
ANY UNITS LEFT TO REPORT? 
BRANCH IF NOT 
ELSE. 00 IT AGAIN 
IS THE CLOCK ENABLED 
NO. THEN CAN' T PRINT TIME 



4961 
4993 



MISCELLANEOUS SECTIONS 
REPORT COOING SECTION 



036642 
036642 
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i FORMAT STATEMENTS FOR PRINT CALLS 



SEQ 126 













1 FORMAT 














f 


OSS770 


045 


116 


045 


STATOl: 






045 


116 


045 


STAT02- 


4999 


0S6061 


045 


116 


045 


STAT03: 


5000 


036103 


045 


116 


045 


STAT04- 


5001 


036157 


045 


116 


045 


STAT05: 


5002 


036215 


045 


116 


045 


STAT06: 


5003 


036256 


045 


116 


045 


STAT07: 


5004 


036314 


045 


116 


045 


STAT06: 


5005 


036360 


045 


116 


045 


STAT09: 


5006 


036424 


045 


116 


045 


STATIO: 


5007 


036462 


045 


116 


045 


STATU: 


5006 


036534 


rt45 


116 


045 


STAT 12 : 


5009 


036606 




116 


045 


STAT13: 


5010 












soil 












5012 


036642 











104425 



L 10007: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 

ENORPT 

TRAP 



?«NMMASTATISTICAL REPORT FOR UNIT «01? 
?«NtfA IN GCR nOOEKN? 
7KN«A IN PE nOOEKN? 

7«NtfS8«S6«S5«AURITE«S3«AREA0«S3«AUNIT ACCESS? 
/«NtfASTATUS ERRORS M)8tf08«08? 

M)6itD8«S7«A07 
ifD6ltD6«l087 
ii08tfS7KAO«S7«A07 
KS7«A0«06tfS7«A0? 
«D8tf08#D8? 

«)3«A . «Z3«A , «Z3«A .1IZ37 
«03«A . «ZS«A . «ZS#A . 1IZ3 ? 
«D6«NM7 



?KN«ASOFT ERRORS 
?«Nf(ANON-RECV 
?«NriAMEDIA 
?«NtfADATA CMP ERRS 
'i«N«AOTHERS 
?«!NriABYTES WRITTEN 
?«.4KABYTES READ 
7«NtfATIMES DROPPED 



CIRPT 



MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



5014 

5015 
5016 
5017 
5018 
5019 
5020 
5021 



5022 
5023 
5024 



5025 

5026 
5027 



5026 

5029 
50S0 



5031 

50S2 
50SS 



5034 

5035 
5036 
5037 
S03a 
5039 
5040 
5041 
5042 
5043 
5044 
5045 
5046 
5047 
5048 
5049 
5050 
5051 
5052 
5053 
5054 
5055 
5056 
5057 



036644 
056644 

036644 
036644 
036644 
036650 
036652 
056652 

036654 
0:^6654 
036660 
036662 
036662 

036664 
036664 
036670 
036672 
036672 

036674 
036674 
036700 
036702 
036702 

036704 
036712 
036716 
036722 
036730 
036734 
036736 

036744 

036752 
036756 
036760 
036764 
036766 
036770 
036772 
036776 
037002 

037004 
037006 
037012 



012700 
104447 

103414 



012700 
104447 

103410 



012700 
104447 

103471 



012700 
104447 

103465 

112737 
005037 
005037 
012737 
105737 
001003 
012737 

013737 
012701 
010102 
062702 
005021 
020201 
001375 
062701 
022701 
001365 

005021 
022701 
001374 
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SBTTL INITIALIZE SECTION 



I IHE INITIALIZE SECTION CONTAINS 
I AT THE BEGINNING OF EACH PASS. 



LIINIT: 
STINIT: : 



BGNINIT 



000040 



000037 



000035 



000036 



000001 003750 
003700 
003622 

000004 003732 
002226 

000002 003732 

003732 003734 
002322 

000210 



000014 
003442 



003536 



START: 



1>: 
51: 
10»i 



1S»: 



REAOEF •EF.START 

nOV tEF. START. RO 

TRAP C»REFG 
BCOMPLETE START 

BCS START 

REAOEF •EF. REST ART 

MOV ♦EF. RESTART.ro 

TRAP CIREFG 
BCOnPLETE START 

BCS START 

REAOEF 4EF.NEU 

MOV tEF.NEU.RO 

TRAP CtREFG 
BCOnPLETE NUPASS 

BCS NUPASS 

REAOEF •EF . CONTINUE 

MOV •EF.CONTINUE.ro 

TRAP C»REFG 
BCOnPLETE NUPASS 

BCS NUPASS 

MOVB •I. DAYS 

CLR PASCNT 

CLR CnPERR 

MOV ♦IF. GCR. FORMAT 

TSTB DENSITY 

BNE 1« 

MOV •TF.PE. FORMAT 

MOV FORMAT, INFORM 

MOV •LUNO.Rl 

MOV R1.R2 

ADD •URSPBF.RS 

CLR (RD* 

CMP R2.R1 

BNE 101 

ADO •U.Rl 

CMP •PCMOBF.Rl 

BNE 5* 

CLR (RD* 

CMP •CMOCNT.Rl 

BNE 15 t 



SEQ 129 



THE COOING THAT IS PERFORMED 



I SET TO FIRST DAY 

: CLEAR THE PASS COUNTER 

I CLEAR THE COMPARE ERROR COUNTER 

(SET INITIAL TEST DENSITY TO GCR 

t INITIAL TEST DENSITY GCR 7 

(BRANCH IF SO 

(SET INITIAL TEST DENSITY TO PE 

(SAVE INITIAL TEST DENSITY 
(SET Rl TO THE FIRST LUN 
(LET R2 - Rl 

{LET R2 - THE END OF THE CLEAR AkEA 

(CLEAR THE LUN LOCATION 

(ARE UE AT THE END OF THE CLEAR AREA 

(NO. KEEP CLEARING 

(SET Rl TO THE NEXT LUN BLOCK 

(HAVE UE DONE THEM ALL 

(60 CLEAR THE NEXT LUN BLOCK 

(CLEAR THE LOCATION AND GET THE NEXT 
(HAVE UE CLEARED THEM ALL 7 
(NO. KEEP GOING 



nZSCEuLANEOUS SECTIONS 
INZTIIU.IZE SECTION 



505« 
5059 
5060 
5061 
5062 
506S 
5064 
5065 
5066 
5067 
5066 
5069 

5070 
5071 
5072 
5073 
5074 
5075 
5076 
5077 
5076 
5079 
5060 
5061 

IS& 

5064 
9065 
5066 
9067 
50M 
5069 
9090 
S0«1 

sou 

5095 
SOW 
S097 
5096 
5099 
9100 
9101 
9102 
910l 
9104 
9109 
9106 
9107 
9100 
9109 
9110 

9111 
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SEQ 150 



037014 


012704 


002522 






nov 


4LUN0.R4 


I SET R4 TO THE FIRST LUN 












HOW 




iSET UP R2 












1 ffWw 


MSI SEOlfRA) 


•SET UP THE SEED IN THE LUN BLOCK 


0370S2 


012764 


007622 


000176 




nov 


«RS2.SE02(R4) 


tSET UP THE SEED IN THE LUN BLOCK 


037040 


012764 


000000 


000200 




nov 


«RS3.SED3(R4) 


iSET UP THE SEED IN THE LUN BLOCK 




Oft970A 


00099A 




sot • 


ADD 


M-UNSTP R4 


iSET UP THE NEXT LUN BLOCK 




009309 








DEC 


R2 


iDECREHENT R2 


037094 


001363 








BNE 


251 


lOIO YOU DO THEN ALL 












BRESET 
















TRAP 


CIRESET 




037060 


005037 


003562 






CLR 


nANCNT 


1 CLEAR THRE RETRY COUNTER 


037064 


013702 


002012 






nov 


LIUNIT.R2 


J SET UP R2 


037070 


012704 


002322 




151 : 


nov 


4LUN0.R4 


iSET R4 TO THE FIRST LUN 


037074 


005037 


003674 




291 : 


CLR 


PCFLAG 


1 CLEAR THE PROGRAM CONTROL FLAG. 


037100 


C05037 


003706 






CLR 


UEOT 


i CLEAR THE EOT FLAG 


037104 


013737 


002012 


003704 




nov 


LtUNIT.UOROP 


J SET UP THE DROP UNIT FLAG 


037112 


005237 


003700 






INC 


PASCNT 


tAOO 1 TO PASS COUNTER 


037116 


012702 


003752 




301: 


nov 


•Cn06Fl,R2 


(PUT connANO buffer address in R2 


037122 


005022 






S5t: 


CLR 


(R2)* 


i CLEAR THE BUFFERS 


037124 


022702 


010412 






CHP 


40SRN60.R2 


(ARE HE AT THE END OF THE BUFFER 7 




001374 






BNE 


391 


iKEPP GOING TILL UE ARE 


037132 


012704 


002322 






nov 


•LUN0.R4 


sSET R4 TO THE FIRST LUN 


037136 


013702 


002012 






nov 


LIUNIT,R2 


(SET UP R2 


037142 


009001 








CLR 


Rl 


1 CLEAR Rl 


037144 


005003 








CLR 


RS 


I CLEAR R3 


037146 


032761 


000020 


003526 


401: 


BIT 


•FAIL.ORINPJS(Rl) 


iHAS THIS DRIVE FAILED ? 


037194 


001054 








BNE 


601 


sYES, GET NEXT UNIT 


037196 


032761 


000010 


003926 


451: 


BIT 


40R0P . ORINUSC Rl ) 


(DID THIS DRIVE DROP LAST TIHE 


037164 


001002 
009064 








BNE 


501 


lYES. KEEP GOING 


0S7164 


000032 






CLR 


UN0fiaP(R4) 


1 OTHERWISE CLEAR THE DROP COUNTER 


0S7172 


012761 


000001 


003526 


501: 


nov 


MVB.MINUS(Rl) 


iSET UP ALL OftZVES TO AVAILABLE 


0S72O0 


012764 


003756 


000014 


5S<: 


NOV 


«OCnOiF.CNUSAV(R4} 


t SET UP NEW COHNAND BL'FFER SAVE 


037206 


012764 


003796 


000016 




nov 


iOcnoaF,coLSAy(R4) 


1 SET UP OLD COMHAND BUFFER SAVE 


097214 


016464 


000220 


000012 




nov 


UC0Sfl6(R4 ) . CNDSSV(R4 ) 


(SET UP CONNAND DESCRIPTOR SAVE 


097222 


016444 


000210 


000020 




nov 


URSPBF(R4 } .RNUSAV(R4 ) 


iSET UP NEU RESPONSE BUFFER SAVE 


037290 


01M64 


000210 


000022 




nov 


URSPeE(R4) .ROLSAVCM) 


1 SET UP OLD RESPONSE BUFFER SAVE 


0972S6 


009064 


000006 






CLR 


CnDSEQ(R4) 


1 CLEAR THE CONHAND REFERENCE NUNBE 


0S7242 


00S064 


000034 






CLR 


aBJFDL(R4) 


i CLEAR THE LOU OBJECT FIELD 


097246 


009064 


000096 






QJR 


aBJF0H(R4} 


1 CLEAR THE HIGH OBJECT FIELD 


097292 


009064 


000010 






cm 


SLTUSE(R4} 


laEAR THE SLOT IN USE FLAG 


037296 


010300 






nov 


R3.R0 


i 



037260 
097260 
037262 
037262 



106442 

109011 



GPNARO RO.RO 
TRAP CIGPHRO 
BNCOnPLETE 60$ 
BCC 60t 



MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



5112 
5113 
5114 
5115 
5i;6 
5117 

sua 

5119 
5120 
5121 
5122 
5123 
5124 
5125 



MACRO Y05.02 Monday 26 Aug 85 09:54 Pag* 67 2 



SEQ 131 



5126 
5127 
5128 
5129 
5130 



5131 
5132 
5133 



5134 
5135 
5136 
5137 
5138 
5139 
5140 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 
5149 
5150 
5151 
5152 
5153 
5154 



037264 


011064 


000000 




MOV 


(R0).TKIP(R4) 


037270 


012064 


000002 




MOV 


(RO) ♦ , TKSA(R4 ) 


037274 


062764 


000002 


000002 


ADO 


#2.TKSA(R4) 


037302 


011064 


000004 




MOv 


(R0).TKUNIT(R4) 


037306 


062701 


000002 




60* : ADD 


«2.R1 


03 7312 


062703 


000001 




ADO 


•1 . .r3 


0S7S16 


062704 


000224 




ADD 


•LUNSTP,R4 


037322 


005302 






DEC 


R2 


037324 


001310 






BNE 


40$ 


037326 


042737 


000002 


003674 


BIC 


*NlLKFL • PCr LAG 


037334 








SETVEC 


♦4 . #N0CLK , »PHI00 


037334 


012746 


000000 




MOV 


WKIOO , - ( Sr J 


037340 


012746 


020646 




MOV 


ffNOCLK , - C 5r J 


03/344 


012746 


AAAAAit 

000004 




MOV 


w4 , - V Sr J 


037350 


012746 


000003 




MOV 


•3, -CSP) 


037354 


104437 








ClbVcL 


037356 


C62706 


000010 




AAA 

ADO 


»10 • Sr 


037362 


AAC ^ V ^ 

005737 


177546 




TS T 


KUCSR 


037S66 


AAA^d A 

000240 






NOP 




037570 


AAA*^^ A 

000240 






NOP 




037372 








CLRVEC 


«4 


037372 


012700 


000004 




MOV 


«4.R0 


037376 


104436 






TD AD 


L ILVcL 


037400 


032737 


AAAAA*^ 

000002 


AAV£ ^A 

003o74 


DT T 

dXT 


•NLLKr L , rLr LMb 


037406 


001016 






BNE 


ISTART 


037410 








SETVEC 


•100 . •KUHOL . «PRIOO 


037410 


01<: '4o 


AAAAAA 




nuv 


ADDTAA f CD ^ 


037414 


A « 'S'y A^ 

012 '46 


AOA^A^ 

Oc0702 




nuv 


ju/ijuni ^ CD t 


037420 


0127 -6 


AAA 1 AA 




nuv 


A1 AA / CD ^ 
«rlUU| \ ar J 


037424 


012746 


000003 




MOV 


#3.-(SP) 


037430 


104437 






TRAP 


CISVEC 


037432 


062706 


A AAA 4 A 

OOOOlO 




Ann 


A1 A CD 

wlUi or 


037436 


A* '%^'W~i 

01273 / 


AAA f AA 




nuv 


A1 AA I/UfCD 
VIUU fKWubK 


037444 


005001 






ISTART: CLR 


Rl 


03 f 44t> 


AAKAV7 


AAOA7^ 

OUew f 4 








037452 


012704 


AA^V^^ 

002322 




nuv 


Al 1 HJA DA 


037456 


032761 


000001 


003526 


1*: BIT 


•AVB.ORINUS(Rl) 


037464 


001501 






BEQ 


15* 






AAAAAA 




BIT 

DA* 


dCOT D(<TNUS(R1) 


037474 


001075 






BNE 


151 


037476 


012764 


000377 


000010 


MOV 


•S77.SLTUSECR4) 


037504 


004737 


026476 




JSR 


PC.PRTCLR 


037510 


112737 


000004 


010"'55 


MOVB 


•4,CRDLIM 


037516 


012705 


037724 




MOV 


•INITIT.R5 


037522 


004737 


021366 




JSR 


PCCMMOSQ 


037526 


032761 


000001 


Oc 3526 


BIT 


9AVB.0RINUSCR1) 


037534 


C014S5 






BEO 


15* 


037536 


012764 


000377 


000010 


MOV 


•377,SLTUSECR4) 



SET Rl TO THE NEXT UNIT 

GET NEXT UNIT 

SET UP THE NEXT LUN BLOCK 

DECREMENT R2 

DID YOU DO THEM ALL 

GET READY TO TEST TOR CLOCK PRESENT 
SET VECTOR 4 IN CASE NO CLOCK 



:IS THE CLOCK THERE ? 



.•RETURN VECTOR TO TRAP CATCHER 



WAS A CLOCK PRESENT ? 

NO CLOCK. START REGULAR INIT 

SET UP THE CLOCK VECTOR 



i ENABLE THE CLOCK INTERUPTS 

jSET Rl TO FIST UNIT 

{SET L»LUN TO FIRST UNIT 

iSET R4 TO THE FIRST LUN BLOCK 

:SEE IF DRIVE IS PRESENT AND AVAILABLE 
:GET THE NEXT DRIVE IF IT ISN'T 
! CHECK IF THE DRIVE IS AT EOT 
sGET NEXT DRIVE IF IT IS 

sSET ALL RESPONSE SLOTS TO THE PORT 
:G0 DO IT 

:CRtOITS START AT 4 FOR NEW LUN 

jPUT INIT TEST TABLE ADDRESS IN «:> 
:G0 DO INIT ON THIS DRIVE 
;5EE IF DRIVE IS PRESENT AND AVAILABLE 
jGET THE NEXT DRIVE IF IT ISN' T 

sSET ALL RESPONSE SLOTS TO THE PORT 
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INITIALIZE SECTION 







AAA7X7 
UV* f 3 ' 


Vcv^ f O 








PC.PRTCLR 






1 1 37X7 

11c ' 3 r 










•4.CRDLIM 


^1 ^7 
^1 'A 






www 






AOO 


•TSTSTP.R5 












JSR 


PC.CMMOSQ 


3137 


r TOO 


\/3C 'OA 


wvwx 


Ww Jew 




BTT 


•AVB.ORINUS(Rl) 


3 iOU 


nX7 574 


W A^ w J 










15* 




3101 


















31Ds 


» w »0 


VAC* w^ 


OOOS77 


WW Aw 


51 : 


MOV 


*577,SLTUSE(R4) 




017M4 


0047S7 


0264 76 








PC.PRTCLR 


3 lO^ 


0^7610 

V J f w A V 


1 1P737 


000004 


010755 




HovB 


♦4 . CRDL IM 




037616 

w J * w AW 


062705 


000006 






ADO 


♦TSTSTP.RS 


JAW 


037622 


004737 


021366 






JSR 


PC.CMMDSQ 






















V J > wCw 


012764 


000377 


OOOOlO 

wwWW A W 


lot : 


MOV 


»377,SLTUSE(R4) 




037634 


004737 


026476 






JSR 


PC.PRTCLR 


5170 


037640 


112737 


000004 


010755 




MOVB 


•4.CRDLIM 


5171 


037646 


062705 


000006 






ADD 


♦TSTSTP.R5 


5172 


037652 


0127S7 

WAK ' > 


000040 


003616 

WW WW AW 




MOV 


•AVLB.TSTMSK 


517S 


037660 


004737 


021366 






JSR 


PC . CMMDSQ 


5174 


037664 


C05037 


003616 






CLR 


TSTMSK 




5175 


















5176 


037670 


022701 


000006 




151: 


CMP 


♦6. .Rl 




5177 


037674 


001411 








BEQ 


EXTINT 




5178 


037676 


062701 


000002 






ADD 


•UNTSTP.Rl 


5179 


037702 


062704 


000224 






ADD 


•LUNSTP.R4 


5180 

JAW 


037706 


005237 


002074 






INC 


L»LUN 




5181 


037712 
037712 


104422 








BREAK 
TRAP 


CtBRK 




5182 


037714 


000137 


037456 






JMP 


1* 




5183 


















5184 


037720 
037720 
037722 


104432 
000032 






EXTINT 


: EXIT 
TRAP 

.UORD 


INIT 

C»EXIT 

LIOOIO- 




5185 

J Aw J 


















5186 

J A WW 










sINlT 


TEST TABLE 




5187 


037724 


170 






INITIT 




.BYTE 


i»;t 


5188 


037725 


OOO 










.BYTE 


NULPAT 


5189 


037726 


000000 

WW w www 










.UORO 


0 


5190 


037730 


000001 

W WWW W A 










.WORD 


1 


5191 


037732 


230 










BYTE 


sec 


5192 


037733 


000 










.BYTE 


NULPAT 


5193 


037734 


000000 










.WORD 


0 


5194 


037736 


000001 










.WORD 


1 


5195 


037740 


140 










.BYTE 


ONL 


5196 


037741 


000 










.BYTE 


NULPAT 


5197 


037742 


000000 










.UORO 


0 


5198 


037744 


000001 










.UORO 


1 


5199 


037746 


220 










.B^'TE 


GUS 


5200 


0"'7747 


000 










.BYTE 


NULPAT 


5201 


0 7750 


000000 










.UORO 


0 


5202 


C -7752 


000001 










.UORD 


1 


5203 












.EVEN 






5204 


















5205 


037754 
037754 
037754 


104411 






LlOOlO 


ENOINIT 
TRAP 


C»INIT 





SEQ 132 



GO DO IT 

CREDITS START AT 4 FOR NEU \,\M 

POINT R5 TO THE SCC COMMAND 

GO 00 SCC ON THIS DRIVE 

SEE IF DRIVE IS PRESENT AND AVAILABLE 

GET THE NEXT DRIVE IF IT ISN T 

SET ALL RESPONSE SLOTS TO THE PORT 
GO DO IT 

CREDITS START AT 4 FOR NEU LUN 
POINT R5 TO THE ONL COMMAND 
GO DO ONLINE ON THIS DRIVE 

SET ALL RESPONSE SLOTS TO T^E PORT 
GO DO IT 

CREDITS START AT 4 FOR NEU LUN 
POINT R5 TO THE GUS COMMAND 
ALLOU UNIT AVAILABLE ERRORS 
CO DO GUS ON THIS DRIVE 
ALLOW NO ERRORS 

HAVE WE DONE THEM ALL ? 
iGET OUT 
;GET NEXT tJNIT 
iSET UP THE NEXT LUN BLOCK 
GET NEXT UNIT 



:G0 DO THE NEXT ONT 



sINITIALlZATION TABLE 



sSET CONTROLLER CHARACTERISTICS TABLE 



i ONLINE TABLE 



.-GET UNIT STATUS TABLE 
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INITIALIZE SECTION 

5207 037756 BGNAOTO 

037756 L»AUTO:: 
5206 037756 ENOAUTO 

037756 '.1001 1: 

037756 104461 TRAP C»AUTO 



MISCELLANEOUS SECTIONS 
CLEANUP CODING SECTION 



5210 
5211 
5212 
521S 
5214 
5215 
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SEQ IS4 



SBTTL CLEANUP CODING SECTION 
THE CLEANUP CODING SECTION CONTAINS THE COOING THAT IS PERFORdEO 
AFTER THE HARDWARE TESTS HAVE BEEN PERfORflED. 



5216 
5223 
5224 
5225 
5226 



5227 
5228 



037 760 
037760 

037760 032737 000002 003674 

037766 001005 

037770 005037 177546 

037774 

037774 012700 000100 
040000 104436 
040002 

040002 104424 
040004 
040004 



L (CLEAN: 



BGNCLN 



BIT 
BNE 

CLR 



5(: 



5229 
5241 
5242 
5243 
5244 



104432 
040006 000002 



MOV 
TRAP 
DORPT 
TRAP 

EXTCLN: EXIT 
TRAP 
.WORD 



040010 
040010 

040010 104412 



L10012: 



.EVEN 

ENDCLN 

TRAP 



♦NCLKFL.PCFLAG 
5» 

KUCSR 



:UAS A CLOCK PRESENT 
:N0 CLOCK. DO REPORT 



CLRVEC «100 

*100.R0 
CtCVEC 



ClORPT 
CLN 
CIEXIT 
L10012- 



C$CLEAN 



niSCELLANEOUS SECTIONS 
DROP UNIT SECTION 

5246 
5247 
S24a 
5249 

5250 
5251 
5252 



MACRO Y05.02 Honday 26 Aug 85 09:54 Pao* 70 



.SBTTL DROP UNIT SECTION 



t * ♦ 



SEQ 135 



t THE DROP UNIT SECTION CONTAINS THE COOING THAT CAUSES A DEVICE 
TO NO LONGER BE TESTED. 

































<R1 > 






ni ni 4^ 








nuv 








VX WV X 








riu V 


n\i « Fix 






wo XwX 








Dm 


nX 


Jc3 r 




VCC f O 1 










ATr PF pnOMAT 






W X ^W J 










5) 




W 


W^ 


000130 
wvx 






TNC 


PPDRPf R4 ) 




w 


00040P 








BR 

on 


10* 




W JO 


W 


00007? 






xnw 


GCRORPf R4 ) 

ww«wnr V y 




040042 


052737 


vv vc w 


003674 


lot - 

xw* ■ 


BTS 


MROPIT PCFLAG 

wW*^W> 1 (■ W k ~W 




040050 










PUSH 


<R0> 




040050 


C 10046 








nov 


RO , - ( SP ) 




040052 










DORPT 




040052 

W^ W 


104424 








TRAP 


C*DRPT 


^P65 


040054 










POP 


<R0> 




040054 


012600 








MOV 


( SP ) * RO 


5266 


040056 


042737 


000200 


003674 




SIC 


*OROPIT.PCFLAG 




040064 


105737 

XV^ ) W f 


002232 






TSTB 


NOCLR 


5368 


040070 


001415 








6EQ 


20* 


5269 


040072 










PUSH 


<R2,R3> 




040072 


010246 








HOV 


R2, -(SP) 




040074 


010346 








HOV 


R3. -(SP) 


5P70 


040076 


012702 


000040 






HOV 


MSTEUR .R2 






012703 


000174 






HOV 


i^SEDl.RS 


5272 




060402 








ADO 


R4.R2 


* w 


W^ V* X V 


060403 

V W W^ w 








ADD 


R4.RS 


• ^ 


vx 


005022 






15* • 

X^ ▼ • 


CLR 


(R2}* 




040114 


020203 








CMP 


R2.R^ 


5276 


040116 


001375 








BNE 


15* 


5277 


040120 










POP 


<R3,R2> 




040120 


012603 








MOV 


(SP)*.R3 




04012;; 


012602 








MOV 


(SP)*.R2 


5278 


040124 


042761 


000001 


003S26 


20»: 


BIC 


#AV8.0RINUS(R1) 


5279 


040132 


032761 


000004 


003526 




BIT 


«E0T.0RINUS(R1) 


5280 


040140 


001404 








BEQ 


25* 


5281 


040142 


042761 


000004 


003526 




BIC 


«£0T.0RINUS(R1) 


5282 


040150 


000402 








BR 


30* 


5283 


040152 


005337 


003704 




25* : 


DEC 


UDROP 


5284 


0401S6 


052761 


000010 


003526 


30*: 


BIS 


«DR0P.DRINUS(R1) 


5285 


040164 


005264 


000032 






INC 


UN0R0P(R4) 


5286 


040170 


022764 


000012 


000032 




CMP 


«10. ,UN0R0P(R4) 


5287 


040176 


001004 








BNE 


35* 


5288 


040200 


052761 


000020 


003526 




BIS 


^ATL.ORINUSCRl) 


5289 


040206 










OOOU 


RO 




040206 


104451 








TRAP 


C*OOOU 


5290 


040210 


005037 


003552 




35*: 


CLR 


RESPON 


5291 


040214 










POP 


<R1> 




040214 


012601 








MOV 


(SP)».R1 


S292 


040216 










DELAY 


20. 



iSAVE Rl 
I PUSH Rl ON STACK 

J POINT Rl TO THE DRINUS TABLE 

jMULTIPLY BY 2 

iARE WE IN PE MODE ? 

iNO. GO INCREMENT GCR DROPS 

{YES. INCREMENT PE DROPS 

iKEEP GOING 

(INCREMENT GCr-; DROPS 

iSET THE UNIT DROP FLAG 

sSAVE RO 
iPUSH RO ON STACK 

sGO PRINT UNIT STATS 

(RESTORE RO 
J POP STACK INTO RO 

! CLEAR THE DROP FLAG 

:00 UC WANT TO CLEAR STATS ON ERROR ? 
:N0. DON'T CLEAR THE STATS 

liPUSH R2 ON STACK 
.•PUSH R3 ON STACK 

(STARTING ADDRESS OF STATS IN R2 
(END ADDRESS OF STATS IN R3 
(ADD THE LUN BLOCK ADDRESS TO R2 
(ADO THE LUN BLOCK ADDRESS TO R3 
(CLEAR THE LOCATION 
(ARE UE AT THE END OF THE STATS 
(NO. KEEP CLEARING 

(POP STACK INTO R3 
(POP STACK INTO R2 

(CLEAR THE AVB BIT IN DRIVE IN USE TABLE 

(IS THE DRIVE AT EOT ? 

(BRANCH IF NOT 

(CLEAR THE EOT BIT IN DRIVE IN USE TABLE 

(GET OUT 

(SUBTRACT 1 TO DROPPED FLAG 

(SET DRIVE IN USE TABLE TO OROPPbO 

(ADO 1 TO THE UNIT DROP COUNT 

(DO UE HAVE 10. ERRORS ? 

(NO. GET OUT 

(SET THE DRIVE TO FAIL 



(CLEAR THE RESPONSE STATUS 
(RESTORE Rl 
(POP STACK INTO Rl 

(DELAY FOR AWHILE 



niSCELLANEOUS SECTIONS 
DROP UNIT SECTION 
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5293 
5294 
5295 
5296 
5297 
5298 
5299 
5300 

5301 



5302 
5314 
5315 
5316 
5317 



040216 
040222 
040224 
040230 
040232 
040236 
040240 
040244 
040246 
040252 
040260 
040264 
040266 



040270 
040270 
040270 
040270 
040272 



040274 
040274 
040274 



012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
010174 
012764 
004737 
000240 
000207 



000167 
COOOOO 



000024 
002116 
177772 
1777S6 
000000 

000577 000010 
026476 



L*OU: 



104453 



L10013: 



MOV 

.UORD 

MOV 

.UORO 

DEC 

BNE 

DEC 

BNE 

MOV 

MOV 

JSR 

NOP 

RTS 



BGNOU 

EXIT 

.WORD 

.UORO 



.EVEN 
ENOOU 
TRAP 



#20. .CPC)» 

0 

L»OLY.(PC)» 
0 

-6(PC) 
. -4 

22(PC) 
. -20 

Rl.aTKIP(R4) 

«377.SLTUSE(R4) 

PC.PRrCLR 

J TEMP 

PC 



OU 

JUMP 
L10015-2' 



C*DU 



: FLUSH THE DRIVE 

J SET ALL RESPONCE SLOTS TO PORT 

:G0 CLEAR THE PORT 

> RE TURN 



tllSCELLANEOUS SECTIONS 
AOO UNIT SECTION 

5319 
5320 
5321 
5322 
5323 
5324 
5325 
5326 

5327 040276 
040276 

5328 
5334 

53?5 040276 

040276 000167 
040300 000000 

5336 
5348 
5349 

5350 

5351 040302 
040302 

040302 104452 

5352 

5353 040304 
5354 
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.SBTTL ADD UNIT SECTION 



SEQ 137 



THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
TO THE TEST CYCLE. 



L«AU: 



L 10014: 



6GNAU 



EXIT AU 
.WORD J«JMP 
.UORD L10014-2- 



.EVEN 
ENDAU 

TRAP C«AU 
ENDMOD 



MISCELLANEOUS SECTIONS 
ADO UNIT SECTION 

5357 
5358 
5369 
5370 
5406 

5407 040504 
5408 
5409 
5410 
5411 
5412 
5413 
5414 
5415 
5422 
5428 
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.TITLE HARDWARE TESTS 
.SBTTL TEST 1: Basic Function Tast 
BGNMOO 



SEQ 138 



This test Mill execute a subset of the legal commands on tha urit 
under test. It serves as a quick verify test to ascertain that the 
unit can move tape and Mrite/read predictably, Mithout error. The 
subset of legal commands Mill be issued in a coherent manner. 



5429 


040304 
040304 








Tl:: 


BGNTST 






5430 


















5431 


040304 


C05737 


003704 




STARTl : 


TST 


UOROP 


iHAVE ALL UNITS BEEN DROPPED ? 


5432 


040310 


001014 








BNE 


51 


:N0. CONTINUE 


5433 


040312 










PRINTF 


♦BYPASS. L»TEST 


i PRINT THE TEST BYPASSED MESSAGE 




040312 


013746 


002114 






MOV 


LITEST. -CSP) 






040316 


012746 


020527 






MOV 


♦BYPASS. -(SP) 






040322 


012746 


000002 






MOV 


#2.-(SP) 






040326 


010600 








MOV 


SP.RO 






040330 


104417 








TRAP 


CIPNTF 






040332 


062706 


000006 






ADO 


♦6.SP 




5434 


040336 


000137 


042306 






JMP 


TIEXIT 


J GET OUT IF NONE LEFT TO TEST 


5435 


















5436 


040342 


105737 


002216 




5». 


TSTB 


CLOCK 


ilS THE CLOCK ENABLED 


5437 


040346 


001421 








BEQ 


GOl 


;N0. THEN CAN'T PRINT TIME 


5438 


040350 
040350 


005046 








PRINTF 
CLR 


♦TIME.<B.HOURS> 

-CSP) 


. <B . MINUTE > . <B . (SECOND > . 




040352 


153716 


002221 






BISB 


SECOND. CSP) 






040356 


005046 








CLR 


-(SP) 






040360 


153716 


002220 






BISB 


MINUTE. CSP) 






040364 


005046 








CLR 


-(SP) 






040366 


153716 


002217 






BISB 


HOURS. CSP) 






040372 


012746 


020037 






MOV 


«TIME.-(SP) 






040376 


012746 


000004 






MOV 


♦4. -CSP) 
SP.RO 






040402 


010600 








MOV 






040404 


104417 








TRAP 


CIPNTF 






040406 


062706 


000012 






AOD 


«12.SP 




5439 


















5440 


040412 


004737 


033550 




GOl: 


JSR 


PC.CLREOT 


sMAKE SURE EOT STATUS IS CLEAR 


5441 


040416 


012737 


000100 


003616 




MOV 


MNLB.TSTMSK 


: ALLOW ALREADY ONLINE STATUS 


5442 


















5443 


040424 


022737 


000002 


003732 




CMP 


#TF.PE. FORMAT 


:ARE WE DOING PE 7 


5444 


040432 


001011 








BNE 


11 


:N0. PRINT GCR 


5445 


040434 










PRINTF 


♦TSTPE 


! PRINT TESTING IN PE 




040434 


012746 


020610 






MOV 


*TSTPE.-(SP) 






040440 


012746 


000001 






MOV 


#1.-CSP) 






040444 


010600 








MOV 


SP.RO 






040446 


104417 








TRAP 


CIPNTF 






040450 


062706 


000004 






AOO 


♦4.SP 




5446 


040454 


000410 








BR 


31 


; START TEST 
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5#* ' 


040430 








It. 


DDTMTP 
rft AW 1 r 




04U# JO 










nuv 


viol uUn ■ * V Or J 








AAAAA1 






nuv 








A1 AikAA 








nuv 


CP on 

Or a "w 






1 AAA 1 T 








TOAP 

1 ft Mr 
















Ann 


AA CP 




AAA474^ 


Ai o7nK 






xt • 
o V : 


nuv 


ATCTCIIT DC 






AA47X7 


AO| AA9 






ICO 


pr ccuPn 






















Ai P7A^ 








Mnu 

nuv 








ftOA7"^7 


vex 






«Jwn 


pr crHFn 

r u • 3\»ncu 




A4AS1 A 


OAS7*^7 


00*^704 






1 w 1 


WW"U» 






wxwc 








one 


C* 




AAnS04 


0001'K7 

VWX^ f 


049'^0A 






IMP 

unr 


TIPVTT 
























003616 

WwOXw 




9t • 

W V • 


CLP 


TSTMSK 






V X C ■ w J 


04P340 






Mnv 

■ lU T 


ATIRFU RS 




A4AS40 




071049 

VCXV^£ 






wwn 


pr cPHTn 

» V • w\»nww 




W^W 




003704 

Www f W^ 






TST 

1 W 1 


UDROP 






CO 1 OOP 
wx wc 










101 

XV 9 






000137 


042306 

WWW 






jHp 


TiFXTT 

1 XwAX 1 




















040SS6 


012705 


042346 




lot • 

X W W a 


MOV 


•TILEOT R5 




040969 

V JVC 


004737 


0210A2 






JSR 


PC SCHEO 


WW 




0097S7 


003704 






TST 

■ W 1 


UOROP 






oolOOd 










19t 




040574 


000 137 


042306 






jHp 


TIEXIT 




















wv# W 


012705 

VXC f V J 


042370 




15» • 

X-* * ■ 


MOV 


ATiSKR RS 


5471 


040604 


004737 


021042 






JSR 


PC, SCHEO 


5472 


040610 


005737 


003704 






TST 


UOROP 




W^Ww 


001002 








BNE 


20 1 


^74 


040616 


000 137 


042306 

V^fi WVw 






jHp 


TIEXIT 


9479 
















9476 




052737 


000001 

WW www X 


003616 

WWwWXW 


201 • 


BIS 


#LEDB TSTMSK 


5477 


OAO610 


012705 

VXC r V J 


042500 






nov 


«T1SKD.R5 






004737 


021042 

Wfc X%F^K 






JSR 


PC . SCHEO 

■ W 4 WW* aWW 






049737 


000001 

WWWWX 


003616 




BIC 


M.E06 . TSTMSK 


S4AO 




009737 


003704 

Www t \/~ 






TST 


UOROP 




040652 

W JC 


001002 
wx 








BNE 


25 1 


54A3 


040654 

Ww 


000137 


042306 








TIEXIT 


S4A4 


040660 


012709 

VAC ( Va/ 


042340 




251 • 


nov 


tfTlREU.RS 




040664 


004737 


021042 






JSR 


PC . SCHEO 




040670 


0097S7 


00370A 

V w J f w^ 






TST 


UDROP 


5407 


040674 


001002 








BNE 


30* 


5466 


040676 


000137 


042306 






JMP 


TIEXIT 


5469 
















5490 


040702 


012705 


042506 




301: 


MOV 


«T1UR1.RS 


5491 


040706 


004737 


033636 






JSR 


PC.SOSTUP 


5492 


040712 


004737 


021042 






JSR 


PC. SCHEO 


5493 


040716 


005737 


003704 






TST 


UOROP 


5494 


040722 


001002 








BNE 


35* 


5495 


040724 


000137 


042306 






JMP 


TIEXIT 


5496 
















5497 


040730 


012705 


042354 




35*: 


MOV 


•T1UTM.R5 


5498 


040734 


004737 


021042 






JSR 


PC. SCHEO 



I 



SEQ 139 



{PRINT TESTING IN GCR 



J SET UP T 9 00 A SET UNIT CHAR 
:G0 ISSUE THE COMMAND 

:SET UP TO 00 AN ONLINE 

I GO ISSUE THE COMMAND 

:HAVE ALL UNITS BEEN DROPPED ? 

:N0. CONTINUE 

;GET OUT IF NONE LEFT TO TEST 

i ALLOW NO ERRORS 

iSET UP TO 00 A REWIND 

:GC ISSUE THE COMMAND 

;HAVE ALL UNITS BEEN DROPPED ? 

iNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 

sSET UP TO 00 2 TAPE MARK COMMANDS 
;G0 ISSUE THE COMMAND 
sHAVE ALL UNITS BEEN DROPPED ? 
:N0. CONTINUE 

;GET OUT IF NONE LEFT TO TEST 

:SET UP TO SKIP REVERSE 2 TAPE MARKS 
:G0 ISSUE THE COMMAND 
sHAVE ALL UNITS BEEN DROPPED ? 
:N0. CONTINUE 

sGET OUT IF NONE LEFT TO TEST 

:SET UP TO ALLOW LEOT DETECTED 
J SET UP TO 00 A SPACE TO LEOT 
:G0 ISSUE THE COMMAND 
5 DISALLOW LEOT DETECTED 
{HAVE ALL UNITS BEEN DROPPED ? 
iNO. CONTINUE 

sGET OUT IF NONE LEFT TO TEST 

sSET UP TO DO A REWIND 

sGO ISSUE THE COMMAND 

iHAVt ALL UNITS BEEN DROPPED ? 

iNO. CONTINUE 

sGET OUT IF NONE LEFT TO TEST 

sWRITE 99, 512 BYTE RECORDS 

I RESET THE RANDOM SEEDS 

iGO ISSUE THE COMMAW 

{HAVE ALL UNITS BEEN DROPPED ? 

:N0, CONTINUE 

J GET OUT IF NONE LEFT TO TEST 

iSET UP TO WRITE A TAPE MARK 
tGO ISSUE THE COMMAND 
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■ C9 1 A • 


Basic Function 


Tost 


5499 


040740 


005737 


00370'' 


5500 


040744 


001002 




5501 


040746 


000137 


042306 


5502 








5503 


040752 


012705 


042514 


5504 


040756 


004737 


033636 


5505 


040762 


004737 


021042 


5506 


040766 


005737 


003704 


5507 


040772 


001002 




5508 


040774 


000137 


042306 


5509 








5510 


041000 


012705 


04? 354 


5511 


041004 


004737 


021042 


5512 


041010 


005737 


003704 


5513 


041014 


001002 




5514 


041016 


000137 


042306 


5515 








5516 


041022 


012705 


042522 


5517 


041026 


004737 


033636 


5516 


041032 


C04737 


021042 


5519 


041036 


005737 


003704 


5520 


041042 


001002 




5521 


041044 


000137 


042306 


5522 








5523 


041050 


012705 


042354 


5524 


041054 


004737 


021042 


5525 


041060 


005737 


003704 


5526 


041064 


001002 




5527 


041066 


000137 


042306 


5526 








5529 


041072 


012705 


042530 


5530 


041076 


004737 


033636 


5531 


041102 


004737 


021042 


5532 


041106 


005737 


003704 


5533 


041112 


001002 




5534 


041114 


000137 


042306 


5535 








5536 


041120 


012705 


042354 


5537 


041124 


004737 


021042 


5536 


041130 


005737 


003704 


5539 


041134 


001002 




5540 


041136 


000137 


042306 


5541 








5542 


041142 


012705 


042536 


5543 


041146 


004737 


033636 


5544 


041152 


004737 


021042 


5545 


041156 


005737 


003704 


5546 


041162 


001002 




5547 


041164 


000137 


042306 


5546 








5549 


041170 


012705 


042354 


5550 


041174 


004737 


021042 


5551 


041200 


005737 


003704 


5552 


041204 


001002 




5553 


041206 


000137 


042306 


5554 








S5SS 


041212 


012705 


042544 



I 
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TST 


UDROP 


iHAVE ALL UNITS BEEN DROPPED ? 




BNE 


401 


iNO, CONTINUE 




JMP 


TIEXIT 


J GET OUT IF NONE LEFT TO TEST 


40*: 


MOV 


«T1UR2.R5 


: WRITE 84. 525 BYTE RECORDS 




JSR 


PC , SDSTUP 


jncbtl inc KHNUOn btcUb 




JSR 


PC . SCHEO 


tGO ISSUE THE COMMAND 




TST 


UDROP 


:HAVF ALl UNITS BEEN DROPPED ? 




BNE 


451 


iNO. CONTINUE 




JMP 


TIEXTT 


J GET OUT IF NONE LEFT TO TEST 


451: 


MOV 


♦T1UTM.R5 


iSET UP TO WRITE A TAPE MARK 




SCO 
Jan 




; bu ibbUc 1 fit LunniiNU 




TST 


UDROP 


;HAVE ALL UNITS BEEN DROPPED ? 




BNE 


501 


:N0. CONTINUE 




JMP 


TIEXIT 


sGET OUT IF NONE LEFT TO TEST 


501: 


MOV 


•T1UR3,R5 


t WRITE 69. 1038 BYTE RECORDS 




J5n 




. DcccT Tuc DAkinnM cpcnc 
; Ncbc 1 1 nt KMNUUn bctub 




JSR 


PC.SCHED 


:G0 ISSUE THE COMMAND 




TST 


UDROP 


:HAVE ALL UNITS BEEN DROPPED ? 




BNE 


55* 


sNO. CONTINUE 




JMP 


TIEXIT 


J GET OUT IF NONE LEFT TO TEST 


551: 


MOV 


«T1UTM,R5 


sSET UP TO WRITE A TAPE MARK 




ICD 








TST 


UDROP 


iHAVE ALL UNITS BEEN DROPPED ? 




BNE 


601 


iNO. CONTINUE 




JMP 


TIEXIT 


sGET OUT IF NONE LEFT TO TEST 


60«: 


MOV 


«T1UR4.R5 


{WRITE 54. 1551 BYTE RECORDS 




ICD 








JSR 


PC.SCHED 


iGO ISSUE THE COMMAND 




TST 


UDROP 


iHAVE ALL UNITS BEEN DROPPED ? 




BNE 


65* 


iNO. CONTINUE 




JMP 


TIEXIT 


sGET OUT IF NONE LEFT TO TEST 


65* : 


MOV 


#TlUTM.r?5 


iSET UP TO WRITE A TAPE MARK 




ICD 


or crupn 






TST 


UDROP 


{HAVE ALL UNITS BEEN DROPPED ? 




BNE 


70 » 


iNO. CONTINUE 




JMP 


TIEXIT 


J GET OUT IF NONE LEFT TO TEST 


701: 


MOV 


♦T1UR5.R5 


i WRITE 39. 2064 BYTE RECORDS 




ICD 


DC cncTiiD 


■ dpcpt tmp DAMnnH cppnc 




JSR 


PC.SCHED 


iGO ISSUE THE COMMAND 




TST 


UDROP 


iHAVE ALL UNITS BEEN DROPPED ? 




BNE 


751 


sNO. CONTINUE 




JMP 


TIEXIT 


iGET OUT IF NONE LEFT TO TEST 


75»: 


MOV 


#T1UTM.R5 


iSET UP TO WRITE A TAPE MARK 




JSR 


PC.SCHED 


iGO ISSUE THE COMMAND 




TST 


UDROP 


iHAVE ALL UNITS BEEN DROPPED ? 




BNE 


0O« 


iNO. CONTINUE 




JMP 


TIEXIT 


J GET OUT IF NONE LEFT TO TEST 


80t: 


MOV 


«T1UR6.R5 


s WRITE 24. 2577 BYTE RECORDS 



HARDWARE TESTS MACRO rOS.02 
TEST 1: Bm)C Function T««t 



rionday 26-Aufl-8S 09:54 Pag* 72-3 



SEQ 141 



SS56 
5557 
5558 
5559 
5560 
5561 
5562 
5563 
5564 
5565 
5566 
5567 
5568 
5569 
5570 
5571 
5572 
5573 
5574 
5575 
5576 
5577 
5578 
S579 
5580 
5581 
5582 
5583 
5584 
5585 
5586 
5587 
5588 
5589 
5590 
5591 
5592 
5593 
5594 
5595 
5596 
5597 
5598 
5599 
5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 
5608 
5609 
5610 
5611 
5612 



041216 
041222 
041226 
041232 
041234 

041240 
041244 
041250 
041254 
041256 

041262 
041266 
041272 
041276 
041300 

041304 
041310 
041314 
041320 
041324 
041326 

041332 
041336 
041342 
041346 
041350 

041354 
041360 
041364 
041370 
041372 

041376 
041402 
041406 
041412 
041414 

041420 
041424 
041430 
041434 
041436 

041442 
041446 
041452 
041456 
041460 

041464 
041470 



004737 


0S36S6 




JSR 


PC , SDSTUP 




004737 


021042 




JSR 


PC.SCHEO 


;G0 ISSUE THE COMMAND 


005737 


003704 




TST 


UOROP 


iHAVE ALL UNITS BEEN DROPPED 7 


001002 






BNE 


85* 


(NO. CONTINUE 


000137 


042306 




JMP 


TIEXIT 


iGET OUT IF NONE LEFT TO TEST 


012705 


04Z34O 


B3» : 


nuv 


AT % 1 CAT DC 




004737 


021042 




JSR 


PC.SCHEO 


J GO ISSUE THE COMMAND 


005737 


003704 




TST 


UOROP 


{HAVE ALL UNITS BEEN DROPPED ? 


001002 






BNE 


90* 


sNO. CONTINUE 


000137 


042306 




JMP 


TlEXir 


jGET OUT IF NONE LEFT TO TEST 


012705 


042340 


90»: 


MOV 


«T1REU.R5 


sSET UP TO REUIND 








ICD 






005737 


003704 




TST 


UOROP 


(HAVE ALL UNITS BEEN DROPPED ? 


001002 






BNE 


95* 


:N0. CONTINUE 


000137 


042306 




JMP 


TIEXIT 


J GET OUT IF NONE LEFT TO TEST 


012705 


042552 


95* : 


MOV 


«T1RD1,RS 


iSET UP TO READ 100 RECORDS 










or cncTiiO 




004737 


021042 




JSR 


PC . SCHEO 


;G0 ISSUE THE COMMAND 


005737 


003704 




TST 


UOROP 


sHAVE ALL UNITS BEEN DRO(>PED 7 


001002 






BNE 


100* 


iNO. CONTINUE 


000137 


042306 




JMP 


TIEXIT 


:GET OUT IF NONE LEFT TO TEST 


vie 'US 




1 AAt • 






1 3C 1 1 u SAX* n 1 nrw nnnvx 


004737 


021042 




JSR 


PC.SCHEO 


iCO ISSUE THE COMMAND 


005737 


003704 




TST 


UOROP 


iHAVE ALL UNITS BEEN DROPPED 7 


001002 






BNE 


105* 


{NO, CONTINUE 


000137 


042306 




JMP 


TIEXIT 


iGET OUT IF NONE LEFT TO TEST 






lOSi • 
XV^v • 


MOV 






004737 


021042 




JSR 


PC.SCHEO 


tGO ISS*^ THE COMMAND 


005737 


003704 




TST 


UOROP 


;HAVE ALL UNITS BEEN DROPPED ? 


001002 






BNE 


110* 


iNO. CONTINUE 


000137 


042306 




JMP 


TIEXIT 


iGET OUT IF NONE LEFT TO TEST 


vXc 








1 CKP RS 


•^FT UP Tn <KTP A TAPF MABK 


004737 


021042 




JSR 


PC.SCHEO 


iGO ISSUE THE COMMAND 


005737 


003704 




TST 


UOROP 


iHAVE ALL UNITS BEEN DROPPED ? 


001002 






BNE 


115* 


iNO. CONTINUE 


000137 


042306 




JMP 


TIEXIT 


iGET OUT IF NONE LEFT TO TEST 


ni 37n^ 

VAC » W3 




list* 






•GFT UP Tn SPAPF M BFCnRDS 


004737 


021042 




JSR 


PC.SCHEO 


iGO ISSUE THE COMMAND 


005737 


003704 




TST 


UOROP 


iHAVE ALL UNITS BEEN DROPPED ? 


001002 






BNE 


120* 


iNO, CONTINUE 


000137 


042306 




JMP 


TIEXIT 


iGET OUT IF NONE LEFT TO TEST 


012705 


042420 


120 »: 


MOV 


♦T1SP01.R5 


iSET UP TO SPACE 56 OBJECTS 


004737 


021042 




JSR 


PC.SCHEO 


iGO ISSLC THE COMMAND 


005737 


003704 




TST 


UOROP 


iHAVE ALL UNITS BEEN DROPPED ? 


001002 






BNE 


125* 


iNO, CONTINUE 


000137 


042306 




JMP 


TIEXIT 


iGET OUT IF NONE LEFT TO TEST 


012705 


042602 


12S«: 


MOV 


•T1R05.R5 


iSET UP TO READ 39 RECORDS 


004737 


033636 




JSR 


PC.SOSTUP 


{RESET THE RANDOM SEEDS 



HARDWARE TESTS MACRO Y05.02 
TEST 1: B««ic Function T«st 



Monday 26-Aua-8S 09:54 Pag* 72-4 



5613 
5614 
5615 
5616 
5617 
S61S 
5619 
5620 
5621 
562? 
5625 
5624 
5625 
5626 
5627 
5628 
5629 
5630 
5631 
5632 
5A^3 
5654 
5635 
5636 
5637 
5636 
5659 
5640 
5641 
5642 
5643 
5644 
5645 
5646 
5647 
5648 
5649 
5650 
5651 
5652 
5653 
5654 
5655 
5656 
5657 
5656 
5659 
5660 
5661 
5662 
5663 
5664 
5665 
5666 
5667 
5668 
5669 



041474 
041500 
041504 
041506 

041312 
041516 
041522 
041526 
041530 

041554 
041540 
041544 
041550 
041552 

041556 
041562 
041566 
041572 
041576 
041600 

041604 
041610 
041614 
041620 
041622 

041626 
041632 
041656 
041642 
041646 
041650 

041654 
041660 
041664 
041670 
041672 

041676 
041702 
041706 
041712 
041714 

041720 
041724 
041730 
041754 
041736 

041742 
041746 



004737 


021042 




JSR 


PC.SCHED 


005737 


003704 




T f* ▼ 

TST 


UDROP 


001002 






BNE 


1301 


0001S7 


042 SOo 




jnH 


1 ItXlT 


012705 


042426 


1301: 


nov 


♦T1SKR1.R5 


004737 


021042 




JSR 


PC.SCHED 


005737 


00370# 




TCT 

TST 


1 moAO 
UQROr 


001002 






Que 




OwvlS 1 






jnr 


T 1 CVTT 






: 


nov 


ATI CVO OC 


004737 


021042 




JSR 


PC.SCHED 


005737 


003704 




TST 


UOROP 








BMC 




/mm V7 
OVOXS 1 






jnr 


T 1 CVTT 






1 A.t\k . 

i*u» : 


MAU 

nuv 


AT 1 DAS 


0O47S7 


035656 




JSR 


PC.SOSTUP 


004737 


021042 




JSR 


PC.SCHED 


UU3 f A ' 








mono 








one 










IHP 


TIFVTT 






1^9* : 


MAU 

nuv 




004737 


021042 




JSR 


PC.SCHED 


005737 


005704 




TST 


UOROP 










1 sot 








IMP 








x^wT : 


MflU 
nw w 




004737 


055636 




JSR 


PC.SOSTUP 


004737 


021042 




JSR 


PC.SCHED 


r d r 


AnV7AA 




TST 

191 










RNF 










IMP 


TIFYTT 


012705 


042442 


1551: 


nov 


♦T1SP03.R5 


004737 


021042 




JSR 


PC,SC»€0 


W3 r d r 


AAX7AA 




TST 


tmROP 










XwvV 








IMP 


TIFXTT 


012705 


042450 


1601: 


riov 


«riSPRl,R5 


004737 


021042 




JSR 


PC.SCHED 


nn^7V7 






TST 


UDROP 


001002 






BNE 


1651 


000137 


042306 




JMP 


TIEXIT 


012705 


042456 


1651: 


MOV 


♦T1SKPI.R5 


004737 


021042 




JSR 


PC.SCHED 


005737 


003704 




TST 


UDROP 


001002 






BNE 


1701 


000137 


042306 




JMP 


TIEXIT 


012705 


042412 


1701: 


MOV 


•T1SPC5.R5 


004737 


021042 




JSR 


PC.SCHED 



SEQ 142 



iGO ISSUE THE COMMAND 

iHAVE ALL UNITS BEEN DROPPED ? 

I NO, CONTINUE 

I GET OUT V HOME. LEFT TO TEST 

iSET UP TO SKIP REVERSE 4 TAPE MARKS 
:G0 ISSUE THE COMMAND 
tHAVE ALL UNITS BEEN DROPPED ? 
>N0. CONTINUE 

J GET OUT IF NONE LEFT TO TEST 

J SET UP TO SKIP TAPE rt*RK FORUARO 
iGO ISSUE THE COMMAND 
iHAVE AL' UNITS BEEN (/ROPPED 7 
I NO. CONTIMC 

iGET OUT IF NONE LEFT TO TEST 

iSET UP TO READ 84 RECORDS 

i RESET THE RANDOM SEEDS 

>G0 ISSUE THE COMMAND 

I HAVE ALL UNITS BEEN DROPPED 7 

iNO. CONTINUE 

iGET OUT IF NONE LEFT TO TEST 

iSET UP TO SPACE 71 OBJECTS 
:G0 ISSUE THE COMMAND 
I HAVE ALL UNITS BEEN DROPPED ? 
iNO. CONTINUE 

iGET OUT IF NONE LEFT TO TEST 

iSET UP TO READ 54 RECORDS 

i RESET THE RANDOM SEEDS 

I GO ISSUE THE COMMAND 

(HAVE ALL UNITS BEEN DROPPED 7 

iNO. CONTINUE 

iGET OUT IF NONE LEFT TO TEST 

iSET UP TO SPACE 66 OBJECTS 
:G0 ISSUE THE COMMAND 
(HAVE ALL UNITS BEEN DROPPED ? 
iNO. CONTINUE 

{GET OUT IF NONE LEFT TO TEST 

iSET UP TO SPACE REVERSE 575 OBJECTS 
iGO ISSUE THE COMMAND 
{HAVE ALL UNITS BEEN DROPPED 7 
iNO. CONTINUE 

jGET OUT IF NONE LEFT TO TEST 

iSET UP TO SKIP FORWARD 4 TAPE MARKS 
iGO ISSUE THE COMMAND 
iHAVE ALL UNITS BEEN DROPPED ? 
iNO. CONTINUE 

iGET OUT IF NONE LEFT TO TEST 

tSET UP TO SPACE 59 RECORDS 
iGO ISSUE THE COMMAND 
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- - y^^^ 

003704 
042306 



SEQ 145 



TEST 1: 


Basic Function 


S670 


041732 


003797 


5671 


041736 


AA<% 

OOlOOZ 


5672 


041760 


000137 


5673 






5674 






5675 


041 f fO 




5676 


04177* 


AAC7 V7 

005737 


5677 




AA 4 AA^ 

001002 


567« 


^/\A^ 

0420U2 


A^%4 V7 

000137 


5679 






5660 


*N M *%^A^ 

0*<006 


A1 07/\% 


5661 






5662 




AAA7V7 
OO* 1 


5663 


\W20cc 


AAV7T7 


5664 




AA1 tfV>3 


5665 




AAA1 Y7 


5666 






5667 




A1 37n^ 


5668 




AAA7'V7 


5669 






5690 




AA1 AA3 


5691 




AAA1 X7 


5692 






5693 






5694 






569S 






5696 


U^SV ' c 




5697 




fl00197 


5690 






5699 




A1 970^ 
VXC iMj 


5700 




AOA7'V7 


5701 




OOS7S7 


5702 




AAI An9 
VvXOvc 


5703 




AA01 X7 


5704 






5703 




ni 97A^ 
VXC 


5706 




OOA7'V7 


5707 




0047?t7 


S706 




00<717 


5709 




AA1009 


5710 


A01 A4 


0001^7 


5711 






5712 






5713 






57K 




A0^7X7 


5715 




001 OA9 


5716 


042x46 


000137 


5717 






5716 


042172 


052737 


5719 


042200 


012705 


5720 


042204 


004737 


5721 


042210 


0427^7 


S722 


04221C 


00S7S7 


5723 


04222^ 


001002 


5724 


0422:4 


000137 


5725 






5726 


042rS0 


012705 



042362 
021042 
003704 

042306 

042610 
0SS63<^'> 
021042 
003704 

042306 

042464 

021042 
003704 

042306 

042472 
021042 
003704 

042306 

042362 
021042 
003704 

042306 

0425e& 
033636 
021042 
003704 

042306 

042340 
021042 
003704 

042306 

000001 003616 
042500 



02104: 
000001 
00S704 

04?>06 

042340 



175»: 



180*: 



1831; 



190»: 



1951: 



200*: 



205*: 



210*: 



003616 



215*: 



TST 


UOROP 


BNE 


175* 


JMP 


TIEXIT 


MOV 


#TlSKP,R5 


JSR 


PC SCHED 


TST 


UOROP 


BNE 


180* 


JMP 


TIEXIT 


MOV 


•T1RD6,RS 


JSR 


PC SDSTUP 


J3R 


PC.SCHED 


TST 


UOROP 


BNE 


185* 


JMP 


TIEXIT 


MOV 


•T1SKP2.RS 


JSR 


PC SCHED 


TST 


UDftOP 


BNE 


190* 


JMP 


TIEXIT 


MOV 


•T1SPR2,RS 


JSR 


PC.SCHED 


TST 


UOROP 


BNE 


195* 


JMP 


TIEXIT 


MOV 


♦TliKP.RS 


JSR 


PC , SCHEO 


TST 


UOROP 


BNE 


200* 


JMP 


TIEXIT 


MOV 


#T1R03.R5 


JSR 


PC. SDSTUP 


JSR 


PC.SCHED 


TST 


UOROP 


BNE 


205* 


JMP 


TIEXIT 


MOV 


#T1RCW.R5 


JSR 


PC.SCHED 


TST 


UDAOP 


BNE 


210t 


•jnr 


T4CVTT 
TlCXXT 


BIS 


4LE0B.TSTHSK 


MOV 


•T1SKD.R5 


JSR 


PC.SCHED 


BIC 


«tE0e.TSTMSK 


TST 


UOROP 


BNE 


2151 


JMP 


TIEXIT 


NOV 


•TIREU.RS 



iHAVE ALL UNITS BEEN DROPPED ? 
(NO. CONTINUE 

iGET OUT IF NONE LEFT TO TEST 

iSET UP TO SKIP A TAPE MARK 
(GO ISSUE THE COMMAND 
(HAVE ALL UNITS BEEN DROPPED 7 
(NO. CONTINUE 

J GET OUT IF NONE LEFT TO TEST 

(SET UP TO READ B24 RECORDS 

I RESET THE RANDOM SEEDS 

iGO ISSUE THE COftMND 

jHAVE ALL UNITS BEEN DROPPED 7 

>N0. CONTINUE 

,GET OUT IF NONE LEFT TO TEST 

(SET UP TO SKIP 2 TAPE MARKS 
iGO ISSUE THE COTtlAND 
iHAVE ALL UNITS BEEN DROPPED ? 
iNO. CONTINUE 

jGET OUT IF NONE LEFT TO TEST 

iSET UP TO SPACE REVERSE 192 OBJECTS 
iGO ISSUE THE COMMAND 
iHAVE ALL UNITS BEEN DROPPED 7 
iNO, CONTINUE 

iGET OUT IF NTNE LEFT TO TEST 

iSET UP TO SKIP A TAPE MARK 
iGO ISSUE THE COmAND 
sHAVE ALL UNITS BEEN DROPPED 7 
iNO, CONTINUE 

:GET OUT IF NONE LEFT TO TEST 

{SET UP TO READ 69 RECORDS 

i RESET THE RANDOM SEEDS 

I 60 ISSUE THE COMHANO 

iHAVE ALL UMITS BEEN DROPPED 7 

tNO. CONTINUE 

(GET OUT IF NONE LEFT TO TEST 

i SET UP TO REWIND 

iGO ISSUE THE CONTMND 

(HAVE ALL UNITS BEEN DROPPED 7 

I NO. CONTINUE 

I GET OUT IF NONE LEFT TO TEST 

i SET UP TO ALLOU LEOT DETECTED 
iSET UP TO SKIP TO LEOT 
iGO ISSUE THE COmAND 
{DISALLOW LEOT DETECTED 
(HAVE ALL UHITS BEEN DROPPED 7 
(NO. CONTINUE 

{GET OUT IF NONE LEFT TO TEST 
I SET UP TO REWIND 





Basic F'unctien 


■ 




042234 


004737 




J 1 CO 










042240 


005737 






042244 


001020 






042246 


005337 






042252 


022737 


000002 




042260 


001405 






042262 


012737 


00OOO2 


5735 


042270 


000137 


040412 


5756 








5737 


042274 


012737 


000004 


5738 


n4?302 


000137 


040412 


5739 








5740 


042306 


005037 


003702 


5741 


042312 


013737 


003734 


5742 


042320 








042320 


104432 






042322 


000302 
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JSR PC.SCHEO 

220»: TST PASSl 

BNE TIEXIT 

DEC PASSl 

CMP ♦TF.PE. FORMAT 

BEQ <;25< 

MOV OTF.PE. FORMAT 

JMP GOl 

225t: MOV ♦TF.GCR. FORMAT 

JMP GOl 

TIEXIT: CLR PASSl 

MOV INFORM. FORMAT 

EXIT TST 

TRAP CIEXIT 

.UORD L 10015 . 



SEQ 144 



iGO ISSUE THE COMMAND 

ilS THIS THE END OF 1ST PASS ? 
; BRANCH IF NOT 
iPASSl ' 1 

:UAS 1ST PASS DONE IN PE ? 
i BRANCH IF SO 
iSET TAPE FORMAT TO PE 
;REPEAT TEST. THIS TIME IN PE 

sSET TAPE FORMAT TO GCR 

i REPEAT TEST. THIS TIME IN GCR 

;RESET 1ST PASS" FLAG FOR NEXT TEST 
;RESTORE INITIAL TEST FORMAT 
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Bm c unction T«st 






S744 






TSTSUC: 


.BrTE 


5745 


042324 


150 


5746 


042325 


000 




.fi^TE 


5747 


042326 


000000 




klORO 


S74B 


042530 


000001 




.UORD 


5749 










5750 


042552 


140 


TIONL: 


.BYTE 


5751 


042553 


000 




.BYTE 


5752 


042534 


000000 




.UORD 


5755 








.UORP 


5754 








. BYTE 


5755 


042540 


160 


TIREU: 


5756 


042541 


000 




.BYTE 


5757 


042542 


000000 




.UORD 


5758 




000001 




.UORD 


5759 








.BYTE 


5760 


042546 


100 


TILEOT : 


5761 


042547 


000 




.B^'TE 


5762 


042550 


000000 




UORD 


5763 


042552 


C00002 




.UORD 


5764 

5765 


042554 


100 


'lUTM: 


.BYTE 


5766 


042355 


000 




.BYTE 


5767 


042356 


000000 




.UORD 


5766 


042560 


000001 




.UORD 


5769 
5770 


042562 


060 


TISKP: 


.BYTE 


5771 


042565 


000 




.BYTE 


5772 


042564 


000001 




.UORD 


5775 


042366 


0000c ' 

www > 




.UORD 


5774 






T15KH: 


D V T f 

.BY It 


5775 


042570 


061 


5776 


042571 


000 




.BYTE 


5777 


042372 


000002 




.UORD 


5778 


0425"'4 


000001 




.UORD 


5779 








.BYTE 


5780 


042376 


050 


TlSPCl: 


5781 


042377 


000 




.BYTE 


5782 


042400 


000124 




.UORD 


5783 


042402 


000001 




.UORD 


5784 

5785 


042404 


050 


T1SPC2: 


.BYTE 


5786 


042405 


000 




.BYTE 


5787 


042406 


000105 




.UORD 


5788 


042410 


000001 




.UORD 


5769 






T1SPC3: 


.BYTE 


5790 


042412 


050 


5791 


042415 


000 




.BYTE 


5792 


042414 


000047 




.UORD 


5793 


042416 


000001 




.UORD 


5794 








.BYTE 


5795 


042420 


070 


TlSPOl: 


5796 


042421 


000 




BYTE 


5797 


042422 


000070 




.UORD 


5798 


042424 


000001 




.UORD 


5799 










5800 


042426 


061 


TlSKRl: 


.BYTE 



sue ;SET UNIT CHARACTERIST KS COMMAND 

NULPAT :N0 DATA NEEDED 

0 sNO ITEM COUNT 

1 ;D0 IT ONE TIME 

ONL : ONLINE COMMAND 

NU' PAT :N0 DATA NEEDED 

0 sNO ITEM COUNT 

1 iDO IT ONE TIME 

REU :REUINO COMMAND 

NULPAT iNO DATA NEEDED 

0 jNC ITEM COUNT 

1 :D0 IT ONE TIME 

UTM :URITE TAPE MARK 

NULPAT :N0 DATA NEEDED 

0 ;N0 ITEM COUNT 

2 jDO IT TWICE 

UTM -.URITE TAPE MARK 

NULPAT :N0 DATA NEEDED 

0 :N0 ITEM COUNT 

1 sOO IT ONE TIME 

SKP :SKIP TAPE MARK 

NULPAT :N0 DATA NEEDED 

1 : SKIP I TAPE MARK 

1 :00 IT ONE TIME 

SKR 5 SKIP TAPE MARK REVERSE 

NULPAT :N0 DATA NEEDED 

2 ;SKIP REVERSE 2 TAPE MARKS 
1 ;D0 IT ONCE 

SPC : SPACE RECORDS 

NULPAT ;N0 DATA NEEDED 

64. s SPACE 84 RECORDS 

1 :D0 IT ONE TIME 

SPC :SPAC«^ RECORDS 

NULPAT sNO DATA NEEDED 

69. :SPAr£ 69 RECORDS 

1 sDO 1' ONE TIME 

SPC : SPACE RECORDS 

NULPAT :N0 DATA NEEDED 

39. .-SPACE 39 RECORDS 

I :00 IT ONE TIME 

SPO sSPACE OBJECTS 

NULPAT jNO DATA NEEDED 

56. ! SPACE 56 OBJECTS 

1 :D0 IT ONE TIME 

SKR iSKIP TAPE MARK REVERSE 
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T1SP02: 



SEQ 146 



TEST 1: 


8m ic 


^unct ion 


5801 


042427 


000 


5802 


04243C 


000004 


5803 


042432 


000001 


5804 






5805 


042434 


070 


5806 


042435 


000 


5807 


042436 


000107 


5808 


042440 


000001 


5809 






5810 


042442 


070 


5811 


042443 


000 


5812 


042444 


000102 


S81S 


042446 


000001 


5814 






5815 


042450 


071 


5816 


042451 


000 


5817 


042452 


0C0567 


5818 


042454 


000001 


5819 






5820 


042456 


060 


5821 


042457 


000 


5822 


042460 


000004 


5823 


042462 


000001 


5824 






5825 


042464 


060 


5826 


042465 


000 


5827 


042466 


000002 


5828 


042470 


000001 


5829 






5830 


042472 


071 


5831 


042473 


000 


5832 


042474 


000300 


5833 


042476 


000001 


5834 






5835 


042500 


062 


5836 


042501 


000 


5837 


042502 


000004 


5838 


042504 


000001 


5«39 






5840 


042506 


020 


5841 


042507 


001 


5842 


04^510 


000026 


5843 


042512 


000143 


5844 






5845 


042514 


020 


5846 


042515 


002 


5847 


042516 


001015 


5848 


042520 


000124 


5849 






5850 


042522 


020 


5851 


042523 


003 


5852 


042524 


002016 


S8SS 


042526 


000105 


5854 






5855 


042SS0 


020 


5856 


042531 


004 


5857 


042532 


003017 



T1SP03: 



TlSPRl: 



TlSKPl; 



T1SKP2: 



T1SPR2: 



TISKO: 



TlURl: 



T1UR2: 



T1UR3: 



T1UR4: 



.BYTE 

.UORD 

unon 

. m\JHU 


NULPAT ! 
4 

1 ; 


NO DATA NEEDED 
4 TAPE riARKS 


.BYTt 
.BYTE 
.WORD 


SPO i 
NULPAT ; 
/I. i 

1 


SPACE OBJECTS 
NO DATA NEEDED 
SPACE 71 OBJECTS 


.BYTE 
.BYTE 
.UORO 


SPO ! 

NULPAr 

66. 
1 

X 


SPACE OBJECTS 
NO DATA NEEDED 
SPACE 66 OBJECTS 

DO TT nMF TTMP 


.BYTE 
.BYTE 
.UORO 


SPR 

NULPAT 

375. 
1 


SPACE OBJECTS RE^'cRSE 
NO DATA NEEDED 
SPACE 375 OBJECTS 
nn TT nNF tihf 

W X I Ul I X' 


.BYTE 
.BYTE 
.UORO 


SKP 

NULPAT 

4. 

1 

A 


SKIP TAPt rIARKS 
NO OnrA NEEDED 
SKIP 4 TAPE MARKS 
00 IT ONE TIME 


.BYTE 
.BYTE 
.UORO 
UORO 


SKP 

NULPAT 

2. 
1 

X 


SKIP TAPE MARKS 
NO DATA NEEDED 
SKIP 2 TAPE MARKS 
00 IT QNF TIME 


.BYTE 
.BYTE 
.UORO 
UORO 


SPR 

NULPAT 

192. 

1 

X 


SPACE OBJECTS REVERSE 
NO DATA NEEDED 
SPACE 192 OBJECTS 
•DO IT ONf TIME 


.BYTE 
.BYTE 
.UORD 
UORO 


S<D 

NULPAT 

4 

1 

X 


;SKIP TO LEOT 
;N0 DATA NEEDED 
NO ITEM COUNT 
DO IT ONE TIME 


.BYTE 
.BYTE 
.UORO 
.UORO 


UR 
PATl 
22. 
99. 


iURITE RECORD 
iOATA PATERN 1 (ALL I'S) 
iBYTE COUNT OF 512. 
■DO IT 99 TIMES 


.BYTE 
.BYTE 
. UORO 
.UORO 


UR 

PAT2 
525 . 
84. 


;URITE RECORD 

sDATA PATERN 2 (ALL O'S) 

[BYTE COUNT Or 525 

jDO IT 84 TIMES 


.BYTE 
.BYTE 
.UORO 
.UORO 


UR 

PAT3 

1038. 

69. 


iURITE RECORD 

jDATA PATERN 3 (UORST MEI) 
iBYTE COUNT OF 1038 
iOO IT 69 TIMES 


.BYTE 
.BYTE 
.UORD 


UR 

PAT4 
1551. 


jURITE RECORD 

sDATA PATERN 4 (ALTERNATE I'S AND O'S) 
jBYTE COUNT OF 1551 
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5858 


042534 


000066 




.UORD 


54. 


5859 
5860 


C 42536 


020 


TIURS: 


.BYTE 


UR 


5861 


042537 


003 




.BYTE 


PAT3 


5862 


042540 


004020 




.WORD 


2064. 


5863 


042342 


000047 




.UORD 


39. 


5864 












5865 


042544 


020 


T1UR6: 


.BYTE 


UR 


5866 


042545 


001 




.BYTE 


PATl 


5867 


042546 


005021 




.UORD 


2577. 


5868 


042550 


000030 




.UORD 


24. 


5869 












5870 


042552 


010 


TlRDl: 


.BYTE 


RD 


5871 


042553 


001 




.BYTE 


PATl 


5872 


042554 


000026 




.UORD 


22. 


5873 


042556 


000143 




.UORD 


99. 


5874 












5875 


042560 


010 


T1R02: 


.BYTE 


RD 


5876 


042561 


002 




.BYTE 


PAT2 


5877 


042562 


C01015 




.UORD 


525. 


5878 


042564 


000124 




.UORD 


84. 


5879 












5880 


042566 


010 


T1R03: 


.BYTE 


RD 


5881 


042567 


003 




.BYTE 


PATS 


5882 


042570 


002016 




.UORD 


1038. 


5883 


042572 


000105 




.UORD 


69. 


5884 












5885 


042574 


010 


T1RD4: 


.BYTE 


RD 


5886 


042575 


004 




.BYTE 


PAT4 


5887 


042576 


003017 




.UORD 


1551. 


5888 


042600 


000066 




.UORD 


54. 


5889 












5890 


042602 


010 


TIROS: 


.BYTE 


RD 


5891 


042603 


003 




.BYTE 


PATS 


5892 


042604 


004020 




.UORD 


2064. 


5893 


042606 


000047 




.UORD 


39. 


5894 












5895 


042610 


010 


T1R06: 


.BYTE 


RD 


5896 


042611 


001 




.BYTE 


PATl 


5897 


042612 


005021 




.UORD 


2577. 


5898 


042614 


000030 




.UORD 


24. 


5899 












5900 


042616 


071 


RTSPRl : 


.BYTE 


SPR 


5901 


042617 


000 




.BYTE 


NULPAT 


5902 


042620 


000001 




.UORD 


1 


5903 


042622 


000001 




.UORD 


1 


5904 








.EVEN 




5905 












5906 


042624 






ENOTST 






042624 




L10015: 








042624 


104401 




TRAP 


CiETST 



SEQ 147 



I DO IT 54 TIMES 
sURITE RECORD 

;DATA PATEPN 3 (WORST MFM) 
:BYTE COUNT OF 2064 
sDO IT 39 TIMES 

i WRITE RECORD 

:OATA PATERN 1 (ALL I'S) 

;BYTE COUNT Of 2577 

J DO IT 24 TIMES 

:READ RECORD 

iDATA PATERN 1 (ALL I'S) 
:BYTE COUNT OF 512. 
jDO IT 99 TIMES 

:READ RECORD 

sDATA PATERN 2 (ALL O'S) 
{BYTE COUNT OF 525 
:D0 IT 84 TIMES 

:READ RECORD 

:DATA PATERN 3 (UORST MF^) 
:BYTE COUNT OF 1038 
5 DO IT 69 TIMES 

sREAO RECORD 

:DATA PATERN 4 (ALTERNATF I'S AND O'S) 
:BYTE COUNT OF 1551 
jDO 17 54 TIMES 

:READ RECORD 

;DATA PATERN 3 (UORST MFM) 
iBYTE COUNT OF 2064 
iDO IT 39 TIMES 

iREAD RECORD 

jDATA PATERN 1 (ALL IS) 
sBYTC COUNT OF 2577 
:00 IT 24 TIMES 

i SPACE OBJECTS REVERSE 
:N0 DATA NEEDED 
; SPACE 1 OBJECT 
:00 IT ONE TIME 
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SEQ 146 



5913 
5914 
5915 
5916 
5917 
5916 
5919 
5920 
5921 
S922 
5923 
5924 
5925 
5926 
5927 

5926 
5929 
5930 
5931 



5932 
5933 
5934 
5935 
5936 



5937 
5938 
5939 
5940 
5941 
5942 
5943 



5944 
5945 



.SBTTL TEST 2: Quick Var ify Urita/Raad Taat 



This tast rattinds tha tapa. than axacutas tha follOMing saquancc: 

1 . Ur i ta racord sat . 

2. Raposition ovar just Mrittan racord sat, 

3. Than raad tha currant racord sat. 

for 5 iterations or until fatal error is encountered. This test 
permits retries, fixed record length (2040 bytes), fixed number of 
records/set (400), and predetermined data patterns. This test Mill 
execute in a round-robin manner. 



042626 










BGNTST 






042626 








T2 : : 








042626 


005757 


003704 




START2: 


TST 


UDRQP 


:HAVE ALL UNITS BEEN DROPPED ? 


042632 


001014 








BNE 


51 


:G0 START THE TEST 


042654 










PRINTF 


TO T PASS, L$ TEST 


jPRlNT THE TEST BYPASbcO nESSAGc 


042634 


015746 


002114 






MOV 


LITEST. -(SP) 




042640 


012746 


020527 






MOV 


♦BYPASS. (SP) 




042644 


012746 


000002 






nuv 


^ CO S 




042650 


010600 








nuv 


CO o/\ 

Sr ,R0 




042652 


104417 








TD AO 






0#2094 


OoZ ' Oo 


OUOUUD 






Ann 


AH CD 




042ddO 


0001o7 








IHD 


TOCVTT 


• fi^T Out tc KinMP i fft Tn tpct 


042od4 


1Q3 f of 






J9 : 


TCTQ 




■ TC TUP Cl C\f*if PKIABI Cf\ 

■ Xo inc. LLULK cNnDLCLI 


042670 


00142I 








DCU 




;NU, I ncN LHN 1 KKINI lint 


A A Of ^O 

042672 










DDTKlTr* 

KKXN 1 r 


ATTMC unilOC% 

w 1 int , <D , riUUK5> 


MTMI ITC% ccf^nkin^ 
■ <D ■ niNU 1 C.> • <D • dcLUNU' • 


i\M 

042672 


005046 








LLK 


f CD ^ 






1 S'??!* 
i ' Aw 


002221 








SECOND (SP) 




042700 


005046 








CLR 


-(SP) 




042702 


155716 


002220 






BISB 


MINUTE. (SP) 




042706 


005046 








CLR 


-(SP) 




042710 


155716 


002217 






BISB 


HOURS. CSP) 




042714 


012746 


020057 






MOV 


*TIME.-(SP) 




0*2720 


012746 


000004 






MOV 


#4. -CSP) 




042724 


010600 








MOV 


SP.RO 




042726 


104417 








TRAP 


CIPNTF 




042730 


062706 


000012 






ADD 


#12. SP 




042734 


004757 


035550 




G02: 


JSR 


PC.CLREOT 


:MAKE SURE EOT STATUS IS CLEAR 


042740 


012757 


000100 


005616 




MOV 


40NLB.TSTMSK 


sALLOU ALREADY ONLINE STATUS 


042746 


022757 


000002 


003752 




CMP 


♦TF.PE. FORMAT 


:ARE WE DOING PE ? 


042754 


001011 








BNE 


It 


:N0. PRINT GCR 


042756 










PRINTF 


4TSTPE 


! PRINT TESTING IN PE 


042756 


012746 


020610 






MOV 


#TSTPE.-(SP) 




042762 


012746 


000001 






MOV 


41. -CSP) 




042766 


010600 








MOV 


SP.RO 




042770 


104417 








TRAP 


CIPNTF 




042772 


062706 


000004 






ADD 


#4.SP 




042776 


000410 








BR 


51 


! START TEST 


045000 








11: 


PRINTF 


«TSTGCR 


i PRINT TESTING IN GCR 


045000 


012746 


020562 






MOV 


♦TSTGCR.-CSP) 
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043004 


012746 


000001 






MOV 




043010 


010600 








MOV 




043012 


104417 








TRAP 




043014 


062706 


000004 






ADD 


5946 


043020 


012705 


042324 




3t: 


MOV 


5947 


043024 


004737 


021042 






JSR 


5948 


043030 


005737 


003704 






TST 


5949 


043034 


001002 








BNE 


5950 


043036 


000137 


043356 






JMP 


5951 














5952 


043042 


005037 


003676 




41 : 


CLR 


5955 


043046 


005037 


003616 






CLR 


5954 


043052 


012705 


043400 






MOV 


5955 


043056 


004737 


021042 






JSR 


5956 


043062 


005737 


003704 






TST 


5957 


043066 


001533 








BEQ 


5958 














5959 














5960 


043070 


004737 


033636 




5t: 


JSR 


5961 


043074 


C12705 


043406 






MOV 


5962 


043100 


004737 


021042 






JSR 


5963 


043104 


005737 


003704 






TST 


5964 


043110 


001522 








BEQ 


5965 














5966 


043112 


012705 


043414 






MOV 


5967 


043116 


004737 


021042 






JSR 


5968 


043122 


005737 


003704 






TST 


5969 


043126 


001513 








BEQ 


5970 














5971 


043130 


012705 


043400 






MOV 


5972 


043134 


00473"^ 


021042 






JSR 


5973 


043140 


005737 


003704 






TST 


5974 


043144 


001504 








BEQ 


5975 














5976 


043146 


005737 


003676 






TST 


5977 


043152 


001412 








BEQ 


5978 


043154 


012705 


043436 






MOV 


5979 


043160 


013765 


003676 


000002 




MOV 


5980 


043166 


004737 


021042 






JSR 


5981 


043172 


005737 


003704 






TST 


5982 


043176 


001467 








BEQ 


5983 














5984 


043200 


004737 


033636 




lot : 


JSR 


5985 


043204 


012705 


043422 






MOV 


5986 


043210 
043214 


004737 


021042 






JSR 


5987 


005737 


003704 






TST 


V A A A 

5988 


043220 


001456 








ocn 


5989 


043222 


066537 


000004 


003676 




ADD 


5990 














5991 


043230 


052737 


000001 


003616 




BIS 


5992 


043236 


012705 


043430 






MOV 


5993 


043242 


004737 


021042 






JSR 


5994 


043246 


042737 


000001 


003616 




BIC 


5995 


043254 


005737 


003704 






TST 


5996 


043260 


001436 








BEQ 


5997 


043262 


066537 


000004 


003676 




ADD 


5998 
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SEQ 149 



♦l.-CSP) 
SP.RO 
C»PNTF 
♦4.SP 

♦TSTSUC.R5 
PC . SCHED 
UOROP 
4( 

T2EXIT 

OBJECT 

TSTMSK 

«T2REU.R5 

PC. SCHED 

UOROP 

T2EXIT 



PC . SDSTUP 
«T2URT.R5 
PC. SCHED 
UOROP 
T2EXIT 

«T2LE0T.RS 
PC. SCHED 
UOROP 
T2EXIT 

*T2REU.R5 
PC. SCHED 
UDROP 
T2EXIT 

OBJECT 
10* 

•T2SP0.R5 

QBJECTS.ITMCNT(R5) 

PC. SCHED 

UOROP 

T2EXIT 

PC. SDSTUP 
«r2RD.R5 
PC. SCHED 
UOROP 
T2EXIT 

ITRCNTCRS). OBJECTS 

♦LEOe. TSTMSK 
«T2SK0.R5 
PC. SCHED 
#LEDB. TSTMSK 
UDROP 
T2EXIT 

ITRCNT(RS). OBJECTS 



sSET UP TO DO A SET UNIT CHAR 
I GO ISSUE THE COMMAND 
.HAVE ALL UNITS BEEN DROPPED ? 
;N0. CONTINUE 

jGET OUT IF NONE LEFT TO TEST 

: CLEAR THE OBJECT COUNTER 

lALLOU NO ERRORS 

tSET UP TO DO A REUIND 

:G0 ISSSUE A REMIND TO ALL DRIVES 

:HAVE ALL UNITS BEEN DROPPED 7 

;GET OUT IF NONE LEFT TO TEST 



; RESET THE RANDOM SEEDS 
sSET UP TO DO A URITE ITERATION 
;G0 ISSSUE WRITES TO ALL DRIVES 
:HAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 

;SET UP TO DO A WRITE LEOT 
:G0 ISSSUE WRITES TO ALL DRIVES 
:HAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 

:SET UP TO DO A REWIND 
:G0 ISSSUE A REWIND TO ALL DRIVES 
I HAVE ALL UNITS BEEN DROPPED ? 
J GET OUT IF NONE LEFT TO TEST 

:IS THIS THE FIRST TIME THROUGH ? 

iYES. DON'T DO THE SPACE FORWARD 

:SET UP TO SPACE OBJECTS 

;SET UP « OF OBJECTS TO SPACE FORWARD 

:G0 ISSSUE A REWIND TO ALL DRIVES 

:HAVE ALL UNITS BEEN DROPPED ? 

;GET OUT IF NONE LEFT TO TEST 

: RESET THE RANDOM SEEDS 
.SET UP TO DO A READITERATION 
iGO ISSSUE READS TO ALL DRIVES 
J HAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 
:ADD THE « OF RECORDS TO OBJECTS 

;SET UP TO ALLOW LEOT DETECTED 
iSET UP TO DO A SKIP TO LEOT 
iGO ISSSUE READS TO ALL DRIVES 
i DISALLOW LEOT DETECTED 
;HAVE ALL UNITS BEEN DROPPED ? 
iGET OUT IF NONE LEFT TO TEST 
:ADD THE » OF RECORDS TO OBJECTS 
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5999 
6000 
6001 
6002 
6003 
6004 
600S 
6006 
6007 
6000 
6009 
6010 
6011 
6012 
6013 
6014 
6015 
6016 
6017 
6016 



043270 
043276 
043300 
043304 

043310 
043314 
043316 
043322 
043330 
043332 
043340 

043344 

043352 

043356 
043362 
043370 
043374 
043374 
043376 



022737 
001274 
012705 
004737 

005737 
001020 
005337 
022737 
001405 
012737 
000137 

012737 
000137 

005037 
013737 
004737 

104432 
000046 















6021 


043400 


160 


6022 


043401 


000 


6023 


043402 


000000 


6024 


043404 


000001 


6025 






6026 


043406 


020 


6027 


043407 


003 


6020 


043410 


010000 


6029 


043412 


000372 


6030 






6031 


043414 


100 


6032 


043415 


000 


6033 


043416 


000000 


6034 


043420 


000002 


60S5 






6036 


043422 


010 


6037 


043423 


003 


6030 


043424 


010000 


6039 


043426 


000372 


6040 






6041 


043430 


062 


6042 


043431 


000 


6043 


043432 


000062 


6044 


043434 


000001 


6045 






6046 


043436 


070 


6047 


043437 


000 


6040 


043440 


000001 


6049 


043442 


000001 


6050 






60F1 






6052 


043444 






043444 





004716 003676 

043400 
021042 

003702 

003702 

000002 003732 

000002 003732 
042734 

000004 003732 
042734 

003702 

003734 003732 
033714 



20f i 



2S«: 
T2EXIT : 



T2REU: 



T2WRT: 



T2LE0T : 



T2R0: 



T2SK0: 



T2SP0: 



L10016: 



CMP 
BNE 
MOV 
JSR 

TST 
BNE 
DEC 
CMP 
BEQ 
MOV 
JMP 

MOV 
JMP 

CLR 

MOV 

JSR 

EXIT 
TRAP 
.UC9D 



.BYTE 
.BYTE 
.UORC 
.WORD 

.BYTE 
.BYTE 
.UORD 
.UORO 

.BYTE 
.BYTE 
.WORD 
.UORO 

.BYTE 
.BYTE 
.WORD 
.UORD 

.BYTE 
.BYTE 
.UORD 
.UORO 

.BYTE 
.BYTE 
.UORO 
.UORD 

.EVEN 

EN0TS1 
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SEQ 150 



•T2EN0. OBJECTS 
5t 

«T2REU.R5 
PC.SCHEO 

PASSl 

T2EXIT 

PASSl 

♦TF.PE. FORMAT 
25 « 

♦TF.Pe. FORMAT 

G02 

♦TF.GCR. FORMAT 
G02 

PASSl 

INFORM. FORMAT 
PC . SOSAVe 

TST 

CIEXIT 
L 10016 -. 



I HAVE UE DONE 2 TRACKS 7 

>N0. KEEP GOING 

:SET UP TO DO A REUINO 

>G0 ISSSUE A REUINO TO ALL DRIVES 

lis THIS THE END OF 1ST PASS 7 
{BRANCH IF NOT 
J PASSl - -1 

iUAS 1ST PASS DONE IN PE 7 
(BRANCH IF SO 
sSET TAPE FORMAT TO PE 
(REPEAT TEST. THIS TIME IN PE 

sSET TAPE FORMAT TO GCR 
(REPEAT TEST. THIS TIME IN GCR 

(RESET "1ST PASS" FLAG FOR NEXT TEST 
(RESTORE INITIAL TEST FORMAT 
(RESET THE RANDOM SEFDS 



REU 
NULPAT 
0 
1 

UR 

PAT3 

4096. 

250. 



(REUINO 



(URITE RECORDS 



UTM 

NULPAT 

0 

2 

RO 

PAT3 

4096. 

250. 

SKD 

NULPAT 
SO. 

1 

SPO 
NULPAT 
1 
1 



(URITE TAPE MARK 
(NO DATA NEEDED 
(NO ITEM COUNT 
(00 IT TUICE 

(READ RECORDS 



(SKIP TAPE MARK TO LEOT 
(NO DATA NEEDED 
(SKIP 50 TAPE MARKS 
(DO IT ONE TIME 

(SPACE OBJECTS 
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043444 104401 TRAP C$ETST 

60S3 
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SEQ 152 



6055 
6056 
6057 
6050 
6059 
6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6066 
6069 
6070 
6071 
6072 
6073 



6074 


043446 
043446 






6075 








6076 


043446 


005737 


003704 


6077 


043452 


001014 




6078 


043454 






043454 


013746 


002114 




043460 


012746 


020527 




043464 


012746 


000002 




043470 


010600 






043472 


104417 






043474 


062706 


000006 


6079 


043500 


000137 


044224 


6000 








6001 


043504 


105737 


002216 


6002 


043510 


001421 




6003 


043512 
043512 


005046 






043514 


153716 


002221 




043520 


005046 






043522 


153716 


002220 




043526 


005046 






043530 


153716 


002217 




043534 


012746 


020037 




043540 


012746 


000004 




043544 


010600 






043546 


104417 






043550 


062706 


000012 


6004 








6005 


043554 


004737 


043550 


6006 


043560 


012737 


000100 


6007 








6000 


043566 


022737 


000002 


6009 


043574 


001011 




6090 


043576 








043576 


012746 


020610 




043602 


012746 


000001 




043606 


010600 





.SBTTL TEST 3: Coinplcx Ur;t«/R«ad Test 



This test rewinds th« taps, and sxscutas ths follOMine s«qu«n:e; 

1. Urits 1000 rscords. 

2. Urit* a fil* msrV. 

3. Rspsat 1 and 2 until EOT is rsachsd. 

4. Writ* 2 file marks (LEOT), 

5 . RsM i nd . 

6. Rsad 1000 records, 

7. Rsad 1 record (should ssc unsxpactsd taps mark) 

8 . Rspsat 6 and 7 unt i 1 LEOT . 

« of rscords (N), snd rscord sizs Mill be randomly sslsctsd. This 

ssqusncs m!1] psrmit hsrditars rstriss, if not ussr disablsd. This 

tsst Mill run until EOT. LEOT or fatal srror is dstsctsd. All data 
pattsrns including random data Mill bs used in this tsst. 



;-- 


BGNTST 


T3!! 




START3: 


TST 




BNE 




PRINTF 




MOV 




MOV 




MOV 




MOV 




TRAP 




ADO 




JMP 


SI: 


TST8 




BEQ 




PRINTF 




CLR 




BISB 




CLR 




BISB 




CLR 




BISB 




MOV 




MOV 




MOV 




TRAP 




ADO 


G03: 


JSR 




MOV 




CMP 




BNE 




PRINTF 




MOV 




MOV 




MOV 



UOROP 
5* 

♦BYPASS. LITEST 
LITEST. -(SP) 
♦BYPASS. -(SP) 
♦2.-CSP) 
SP.RO 
CIPNTF 
«6.SP 
T3EXIT 



HAVE ALL UNITS BEEN DROPPED ? 

GO START THE TEST 

PRINT THE TEST BYPASSED MESSAGE 



sGET OUT IF NONE LEFT TO TEST 



CLOCK J IS THE CLOCK ENABLED 

G03 :N0, THEN CAN'T PRINT 

♦T IME . < B . HOURS > . <B , MINUTE > . <B , SECOND > . 

-(SP) 

SECOND. (SP) 
-(SP) 

MINUTE. (SP) 
-(SP) 

HOURS. (SP) 

♦TIME.-(SP) 

♦4.-CSP) 

SP.RO 

CIPNTF 

♦12. SP 



TIME 



PC.CLREOT 
♦ONLB.TSTMSK 

♦TF.PE. FORMAT 
II 

♦TSTPE 

♦TSTPE.-(SP) 

♦l.-(SP) 

SP.RO 



sMAKE SURE EOT STATUS IS CLEAR 
:ALLOU ALREADY ONLINE STATUS 

:ARE UE DOING PE ? 

:N0. PRINT GCR 

: PRINT TESTING IN PF 
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6091 
6092 



6093 
6094 
6095 
6096 
6097 
6098 
6099 
6100 
6101 
6102 
6103 
6104 
6105 
6106 
6107 
6108 
6109 
6110 
6111 
6112 
6113 
6114 
6115 
6116 
6117 
6118 
6119 
6120 
6121 
6122 
6123 
6124 
6125 
6126 
6127 
6128 
6129 
6130 
6131 
6132 
6133 
6134 
6135 
61S6 
6137 
61S8 
61S9 
6140 



043610 
043612 
043616 
043620 
043620 
043624 
043630 
043632 
043634 
043640 
043644 
043650 
043654 
043656 

043662 
043666 

043672 
043676 
043702 

043704 
043710 
043714 
043720 

043722 
043726 
043732 
043736 
043740 
043746 

043750 
043754 
043760 
043764 
043766 
043774 

043776 
044004 
044010 
044014 
044020 
044024 
044026 
044032 

0440S4 
044040 
044044 
044050 
044054 
044056 
044062 



104417 

062706 
000410 

012746 
012746 
010600 
104417 
062706 
012705 
004737 
005737 
001002 
000137 

004737 
004737 

005037 
C05737 
001550 

012705 
004737 
005737 
001541 

012705 
004737 
005737 
001532 
023737 
001413 

012705 
004737 
005737 
001517 
023737 
001352 

012737 
004737 
012705 
004737 
005737 
001477 
005337 
001364 

004737 
012705 
004737 
005737 
00146S 
004737 
004737 



000004 



020562 
000001 



000004 
042324 
021042 
003704 

044224 

033772 
0SS6S6 

003616 
003704 



044246 

021042 
003704 



1<: 



3t: 



41: 



5t. 



044254 

021042 
003704 

003706 0037C4 



044262 
021042 
003704 

003706 003704 



000004 010744 10« : 

033550 15 «: 

044262 

021042 

003704 

010744 



033550 
044246 
021042 
003704 

033772 
033636 



TRAP 

ADO 

BR 

PRINTI 

nov 
nov 
nov 

TRAP 
ADD 

nov 

JSR 
TST 
BNE 

jnp 

JSR 
JSR 

CLR 
TST 
BEQ 

nov 

JSR 
TST 
BEQ 

nov 

JSR 
TST 
BEQ 

cnp 

BEQ 

nov 

JSR 
TST 
BEQ 

cnp 

BNE 

nov 

JSR 

nov 

JSR 
TST 
BEQ 
DEC 
BNE 

JSR 

nov 

JSR 
TST 
BEQ 
JSR 
JSR 



Page 75-1 



SEQ 153 



CIPNTF 
#4.SP 

31 

*TSTGCR 

•TSTGCR.-(SP) 

♦l.-(SP) 

SP.RO 

C»PNTF 

M SP 

♦TST sue. R5 
PC.SCHED 
UOROP 
4» 

T3EXIT 

PC.PATCLR 
PC.SDSTUP 

TSTMSK 

UOROP 

TSEXIT 

•TSREU.R5 
PC.SCHED 
UOROP 
TSEXIT 

«T3URT.R5 

PC.SCHED 

UOROP 

T3EXIT 

UEOT. UOROP 

10* 

«T3UTn.R5 

PC.SCHED 

UOROP 

T3EXIT 

UEOT. UOROP 

51 

«4. LOOPS 

PC.CLREOT 

*T3UTn,RS 

PC.SCHED 

UOROP 

T3EXIT 

LOOPS 

151 

PC.CLREOT 

•TSREk.RS 

PC.SCHED 

UOROP 

T3EXIT 

PC.PATCLR 

PC.SDSTUP 



, START TEST 

i PRINT TESTING IN GCR 



(SET UP TO DO A SET UNIT CHAR 
iGO ISSUE THE COHHAND 
(HAVE ALL UNITS BEEN DROPPED ? 
:N0. CONTINUE 

-.GET OUT IF NONE LEFT TO TEST 

:nAKE SURE WE START WITH PATTERN 1 
i RESET THE RANOOH SEEDS 

sALLOU NO ERRORS 

;HAVE ALL UNITS BEEN DROPPED ? 

{GET OUT IF NONE LEFT TO TEST 

:SET UP TO DO REWIND 
:G0 ISSUE 10 ALL DRIVES 
sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 

:SET UP A WRITE ITERATION 

:G0 00 IT ON ALL DRIVES 

{HAVE ALL UNITS BEEN DROPPED ? 

;GET OUT IF NONE LEFT TO TEST 

jARE ALL UNITS AT EOT ? 

iYES. WRITE ONE MORE REC AND LEOT 

;SET UP TO WRITE A TAPE MARK 
:G0 DO IT ON ALL DRIVES 
{HAVE ALL UNITS BEEN DROPPED ? 
{GET OUT IF NONE LEFT TO TEST 
{ARE ALL UNITS AT EOT ? 
:N0. KEEP WRITING 

:SET UP TO 00 4 TAPE MARKS 

: CLEAR THE EOT INDICATORS 

.SET UP TO WRITE A TAPE MARK 

{GO DO IT ON ALL DRIVES 

{HAVE ALL UNITS BEEN DROPPED ? 

{GET OUT IF NONE LEFT TO TEST 

{SUBTRACT 1 FROM THE TAPE MARK COUNT 

{KEEP GOING TIL THEY'RE ALL WRITTEN 

{CLEAR THE EOT INDICATORS 
{SET UP TO REWIND ALL DRIVES 
{GO 00 IT 

{HAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 
{START AT PATTERN 1 
{RESET THE RANDOM SEEDS 



MACRO Y05.02 



TEST 5: 


Co«pl«x 


Writ«/R*ad T«st 


6141 








6142 


044066 




V^^c • V 


6143 


044072 






6144 


044076 




00^704 


6145 


044102 






6146 


044104 






6147 


044112 






6148 








6149 


044114 


VAC • 


044276 


6150 


044120 


004737 


021042 


6151 


044124 


005737 


003704 


6152 


044130 


001435 




6153 


044132 


023737 


003706 


6154 


044140 


001352 




6155 








6156 


044142 


004737 


033550 


6157 


044146 


012705 


044246 


6158 


044152 


004737 


021042 


6159 








6160 


044156 


C05737 


003702 


6161 


044162 


001020 




6162 


044164 


005337 


003702 


616S 


044170 


022737 


000002 


6164 


044176 


001405 




6165 


044200 


012737 


000002 


6166 


044206 


000137 


04SSS4 


6167 








eleo 




012737 


000004 


6169 


044220 


000137 


043554 


6170 








6171 


044224 


005037 


00370r 


6172 


044230 


013737 


003734 


6173 


044236 


004737 


033714 


6174 


044242 








044242 


104432 






044244 


000040 





20*: 



EXSREU: 



2201: 



225 ti 



now 
JSR 
TST 
BEQ 
CMP 
BEQ 

MOV 
JSR 
TST 
BEQ 
CMP 
BNE 

JSR 
MOV 
JSR 

TST 
BNE 
DEC 
CMP 
BEQ 
MOV 
JMP 

MOV 
JMP 



T3EXIT: CLR 
MOV 
JSR 
EXIT 
TRAP 
.WORD 



6175 



P*9« 75 2 



SEQ 



•T3RD.R5 


J SET UP TO READ AN ITERATION SET 


PC.SCHED 


iGO ISSUE TO ALL DRIVES 


UOROP 


sHAVE ALL UNITS BEEN DROPPED ? 


T3EXIT 


iGET OUT IF NONE LEFT TO TEST 


UEOT , UOROP 


All 1 ' TTP AT PnT ■> 

lALL UNITS AT EOT 7 


(:X3REU 


lYES. GO REWIND ALL DRIVES 


•T3SP0.R5 


; SPACE 1 OBJECT CTAPt MARK} 


PC « SCHtD 


lUO 00 XT AN ALL DRIVES 


UOROP 


snnVt HLL UNXTS BtcN UNuPrcD r 


T3cXIT 


;GcT OUT Ir NONE. LtrT TO TEST 


UcOT , UOROr 


Al 1 liUTTC AT CAT ^ 

; MLL UNI lb HI tU i 7 


201 


;N0. KEEP RcADINb 


PC . CLREOT 


i CLEAR THE EOT INDICATORS 


vT3RcU,R3 


. CCT 1 ID Tn DCLITun Al 1 noTucc 

;ScT UP TO RcHIND ALL DRXVcS 


PC . SCHEO 


;G0 00 IT 


PAbSl 


TC TUTC TUC Cftjn r»c * CT DACC ^ 

; 15 THIb Tnt cND Ur 15 1 rll55 7 


TTCVTT 


tDKANun Ir NUi 




jPASSl - -1 


ATC DC C ADM AT 


. UAC 1 CT DACC rkAklC Tkl DC ^ 
I W#%b lb 1 KMba UUNC IN rc r 


ZcDf 


I BNMNLn ir all 




•QFT TAPP cnOMAT Tn PF 


603 


J REPEAT TEST. THIS TIME IN PE 


♦TF.GCR. FORMAT 


sSET TAPE FORMAT TO GCR 


G03 


s REPEAT TEST. THIS TIME IN GCR 


PASSl 


.RESET "1ST PASS- FLAG FOR NEXT TEST 


INFORM. FORMAT 


: RESTORE INITIAL TEST FORMAT 


PC.SOSAVE 


: RESET THE RANDOM SEEDS 


TST 


CIEXIT 




L10017-. 





HAROUARE TESTS MACRO Y0S.02 



TEST 3: 


CoMplCX 


Urtt*/R«a«t T««t 


6177 


044246 


160 


6176 


044247 


000 


6179 


044250 


000000 


6180 


044252 


000001 


6161 






6182 


044254 


020 


6183 


044255 


200 


6184 


044256 


000000 


6165 


044260 


000000 


6186 






6187 


044262 


100 


6188 


044263 


000 


6189 


044264 


000000 


6190 


044266 


000001 


6191 






6192 


044270 


010 


6193 


044271 


200 


6194 


044272 


000000 


6195 


044274 


000000 


6196 






6197 


044276 


070 


6198 


044277 


OOJ 


6199 


044300 


000001 


6200 


044302 


000001 


6201 






6202 






6203 


044304 






044304 






044304 


104401 



PaO« 76 



T3REU: 



T3URT: 



T3UTH: 



T3RD: 



T3SP0: 



L10017: 



.BYTE 


REU 


.BYTE 


NULPAT 


.WORD 


0 


.WORD 


1 


.BYTE 


UR 


.BYTE 


ALLPAT 


.WORD 


RNOBYT 


.WORD 


RNOITR 


.BYTE 


UTM 


.BYTE 


NULPAT 


.WORD 


0 


.UORO 


1 


.BYTE 


RO 


.BYTE 


ALLPAT 


.WORD 


RNDBtT 


.WORD 


RNOITR 


.BYTE 


SPG 


.BYTE 


NULPAT 


.WORD 


1 


.UORO 


1 


.EVEN 




ENOTST 




TRAP 


CJETST 



SEQ 155 

iREWiNO 

iURITE RECORDS 

sURITE TAPE MARK 

iREAO RECORDS 

s SPACE OBJECT (TAP£ HARK) 
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TEST 4: Writ* Intarchartgs Tapa 



SEQ 156 



6205 
6206 
6207 
6206 
6209 
6210 
6211 
6212 
6213 

6214 

6215 
6216 
6217 



6216 
6219 
6220 
6221 
6222 



6225 
6224 
622S 
6226 
6227 
6226 
6229 



.S8TTL TEST 4: Urita Intarchanga Tapa 



iThia taat mIII rattind tha tapa. than ttrita until EOT or a fatal mrror la 
lancountarad Thia taat Mill kaap track of tha nuatoar of racorda and tapa 
jaarka writtan. If a fatal »rror ia ancountarad, a aaaaaoa Mill rapert 
jit. and tha unit pravantad froM axacuting furthar Mrita oparatlona. 



6231 



044306 








i - - 


BGNTST 


044306 








T4: : 




044306 


005737 


003704 




START4 : 


TST 


044312 


001014 








BNE 


044314 










PRINTF 


044314 


013746 


002114 






NOV 


044320 


012746 


020527 






MOV 


044324 


012746 


000002 






MOV 


044330 


010600 








MOV 


044332 


104417 








TRAP 


044334 


C62706 


000006 






ADD 


044340 


000137 


044702 






JMP 


044344 


105737 


002216 




Si: 


TSTB 


O44SS0 


001421 








BEQ 


044352 










PRINTF 


044392 


005046 








CLR 


044394 


153716 


002221 






BIS8 


044360 


005046 








CLR 


044362 


153716 


002220 






BIS8 


044566 


005046 








CLR 


044370 


153716 


002217 






BISB 


044374 


012746 


020037 






MOV 


044400 


012746 


000004 






MOV 


044404 


010600 








MOV 


044406 


104417 










044410 


062706 


000012 






Ann 

ADD 


044414 


004737 


033550 




G04: 


JSR 


044420 


012737 


OOOlOO 


003616 




MOV 


044426 


022737 


000002 


003732 




CMP 


044434 


001011 








BNE 


044436 










PRINTF 


044436 


012746 


020610 






MOV 


044442 


012746 


000001 






MOV 


044446 


010600 








MOV 


044490 


104417 








TRAP 


044452 


062706 


000004 






ADO 


044436 


000410 








BR 


Oil HO 








11: 


PRINTF 




012746 


020962 






MOV 




012746 


000001 






MOV 


044470 


010600 








MOV 


044472 


104417 








TRAP 


044474 


062706 


000004 






ADO 


044500 


012"'05 


042324 




31: 


NOV 


044504 


004737 


021042 






JSR 



UOROP 
5< 

46YPASS.LITEST 

LITEST. -(SP) 

«6YPASS,-(SP) 

♦2.-(SP) 

SP.RO 

CIPNTF 

•6.SP 

T4EXIT 



iHAVE ALL UNITS BEEN DROPPED 7 

I GO START THE TEST 

> PRINT THE TEST BYPASSED MESSAGE 



iG£T OUT IF NONE LEFT TO TEST 



CLOCK lis THE CLOCK ENABLED 

G04 ;N0. THEN CAN'T PRINT TIME 

•TIME . <B . HOURS> . <B , NINUTE > . <B . SECONO> , 

-(SP) 

SECOND. (SP) 
-CSP) 

NINUTE. (SP) 
-(SP) 

HOURS. (SP) 

#TINE.-(SP) 

♦4.-(SP) 

SP.RO 

CIPNTF 

•12. SP 



PC.CLREOT 
•ONLB.TSTNSK 

•TF.PE.FORNAT 
1« 

♦TSTPE 

•TSTPE.-(SP) 

•l.-(SP) 

SP.RO 

C»PHTF 

•4.SP 

3* 

•TSTGCR 

•TSTGCR.-(SP) 

•l.-(SP) 

SP.RO 

CIPNTF 

•4 SP 

•TSTSUC.R5 

PC.SCHED 



(NAKE SURE EOT STATUS IS CLEAR 
lALLOU ALREADY ONLINE STATUS 

lARE UE DOING PE ? 

tNO. PRINT GCR 

i PRINT TESTING IN PE 



i START TEST 

t PRINT TESTING IN GCR 



;SET UP TO DO A SET UNIT CHM 
tGO ISSUE THE COMNAND 



HARDWARE TESTS MACRO Y0S.02 riondsy 26 Au^-SS 09:54 Page 77 1 
TEST 4: Writ* Interchange Tape 



SEO 157 



6234 
623S 
6236 
6237 
6239 
6239 
6240 
6241 
6242 
6243 
6244 
6245 
6246 
6247 
6249 
6249 
6250 
6251 
6252 
6253 
6^94 
6255 
6256 
6257 
6258 
6259 
6260 
6261 
6262 
6263 
6264 
6265 
6266 
6267 
6268 
6269 
6270 
6271 
6272 
6273 
6274 
6275 



6276 
6277 
6278 
6279 
6280 
6281 
6282 
6283 
6264 
6285 
6286 
6287 
6268 



044510 
044514 
044516 

044522 
044526 
044532 

044536 
044542 
044546 
044552 

044SS4 
044560 
044564 
044570 
044572 
044600 

'M4602 
044606 
044612 
044616 
044620 
044626 

044630 
044636 
044642 
044646 
044652 
044656 
044660 
044664 

044666 
044672 
044676 

044702 
044710 
044710 
044712 

044714 
044715 
044716 
044720 

044722 
044723 
044724 
044726 

044730 
044731 



005737 
001002 
000137 

004737 
004737 
005037 

012705 
004737 
005737 
001453 

012705 
004737 
005737 
001444 

001413 

012705 
004737 
005737 
001431 
023737 
001352 

012737 
004737 
012705 
004737 
005737 
001411 
005337 
001364 

004737 
012705 
004737 

013737 

104432 
000024 

160 
000 
000000 
000001 

020 
200 
010000 
001750 

100 
000 



003704 






TST 


UOROP 


iHAVE ALL UNITS BEEN DROPPED ? 






BNE 


4» 


:N0. CONTINUE 








JHP 


T4PXTT 


iGtT OUT IF NONE LEFT TO TEST 


033772 








Pr PATEl R 


sSET UP THE RANDOM SEEDS 


W.J 








PC ^DSTUP 


003616 






CLR 


TSTMSK 


:N0 ALLOWABLE ERRORS 


044714 






MOV 


4T4REU.R5 


jPOINT R5 TO THE REWIND TABLE 








JSR 


PC SCHED 


iGO START THE TEST 








TST 


UO^OP 


iHAVE ALL UNITS BEEN DROPPED ? 








T4EXIT 


sGET OUT IF NONE LEFT TO TEST 


0447^2 




SI . 


MOV 


»T4URT,RS 


; POINT R5 TO THE TEST TABLE 


021042 






JSR 


PC. SCHED 


sGO START THE TEST 


0C5704 






TS'' 


UDROP 


;HAVE ALL UNITS BEEN DROPPED ? 






BCQ 


T4EXIT 


jGET OUT IF NONE LEFT TO TEST 


003706 


003704 




CMP 


UEOT , UDROP 


;ARE THEY ALL AT EOT ? 








BEQ 


101 


: BRANCH IF IT IS 


044730 






MOV 


«T4UTM.R5 


;POINT R5 TO THE TEST TABLE 


021042 






JSR 


PC . SCHED 


jGO START THE TEST 


003704 






TST 


UOROP 


;HAVE ALL UNITS BEEN DROPPED ? 






BEQ 


T4EXIT 


sGET OUT If^ NONE LEFT TO TEST 


003706 


003704 




CMP 


UEOT . UDROP 


;ARE THEY ALL AT EOT ? 








Bl^ 


5* 


{BRANCH IF NOT 


000004 


010744 


lot: 


MOV 


♦4. LOOPS 


jSET UP TO DO 4 TAPE MARKS 


033550 


15$ : 


JSR 


PC.CLREOT 


:CLEAR THE EOT INDICATORS 


044262 






MOV 


•T3UTM.R5 


sSET UP TO WRITE A TAPE MARi. 


021042 






JSR 


PC . SCHED 


iCO DO IT ON ALL DRIVES 


003704 






TST 


UOROP 


iHAVE ALL UNITS BEEN DROPPED ? 






BEQ 


T4EXIT 


iGET OUT IF NONE LEFT TO TEST 


010744 






DEC 


LOOPS 


i SUBTRACT 1 FROM THE TAPE MARK COUNT 






BNE 


151 


{KEEP GOING TIL THEY'RE ALL WRITTEN 


033550 






JSR 


PC.CLREOT 




044714 






MOV 


tfT4REU.R5 


Ipoint r5 to the test table 


021042 






JSR 


PC.ScMEO 


iGO REWIND ALL UNITS 


003734 


003732 


T4EXIT: 


MOV 


INFORM. FORMAT 


iRESTORE INITIAL TEST FORMAT 






EXIT 


TST 










TRAP 


C»EXIT 










.WORD 


L 10020 - . 








T4REU: 


.BYTE 


REU 


{REWIND 








.BYTE 


NULPAT 










.WORD 


0 










.WORD 


1 








T4WRT : 


.BYTE 


WR 


iWRITE RECORDS 








.BYTE 


ALLPAT 










.WORD 


4096. 










.WORD 


1000. 








T4UTM: 


.BYTE 


UTM 


i .iRITE TAPE 








.BYTE 


NULPAT 
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*EST 4: ur^ t« Interchange Tap* 

6289 044752 000000 .UORO 0 

«29C 0447S4 000001 .UQRO 1 

6291 .EVEN 

6292 044736 ENOTSr 
0447S6 L 10020: 

044 736 104401 TRAP CIETST 

6293 



£0 ise 



HARDWARE TESTS KACRO Y05.02 
TEST 5: R«aa Unknomn T| 



6295 
6296 
6297 
6296 
6299 
6500 
6501 
6502 
6505 
6504 



Monday 26 Aug 65 09:54 Pag* 76 



.SBTTL TEST 5: Read Unknown Tape 



SEO 159 



6305 
6506 
6507 
6508 



6509 
6510 
6511 
6512 
6515 



6514 

6515 
6516 
6517 
6518 
6519 
6520 



6521 
6522 



6525 



044740 










BGNTST 


044740 








T5: : 




044740 


005757 


005704 




STARTS: 


TST 


044744 


001014 








BNE 


U44746 










PRINTF 


044746 


015746 


002114 






MOV 


044752 


012746 


020527 






MOV 


044756 


012746 


000002 






MOV 


044762 


010600 








nuv 


044764 


104417 








TRAP 


044766 


062706 


000006 






ADD 


044772 


000137 


0#3eO# 






IMD 


044776 


105757 


002216 




51: 


TSTB 


045002 


001421 








BEQ 


045004 










PRINTf 


045004 


005C46 








CLR 


045006 


155716 


0022?1 






BISB 


045012 


005046 








CLR 


045014 


155716 


002220 






BISB 


045020 


005046 








CLR 


045022 


155716 


002217 






BISB 


045026 


012746 


020057 






MOV 


045052 


012746 


000004 






MOV 


045056 


"10600 








MOV 


045040 


104417 








TRAP 


045042 


062706 


000012 






ADD 


045046 


004757 


055550 




G05: 


JSR 


045052 


012757 


000100 


005616 




MOV 


045060 


022757 


000002 


005752 




CMP 


045066 


001011 








BNE 


045070 










PRINTF 


045070 


012746 


02UblO 






MOV 


045074 


012746 


000001 






MOV 


045100 


010600 








MOV 


045102 


104417 








TRAP 


045104 


062706 


000004 






ADO 


045110 


000410 








BR 


045112 








1<: 


PRINTF 


045112 


012746 


020562 






MOV 


045116 


012746 


000001 






MOV 


045122 


010600 








MOV 


045124 


104417 








TRAP 


045126 


062706 


000004 






ADO 


045152 


012705 


042524 




5<: 


MOV 



This teat Mill rcMind a tap*, than raad until EOT. LEOT or fatal error 
ia ancountarad. Th'a taat Mill kaap track of tha nu«b*r of racorda 
and f'laa raad. If a fatal error i* encountered, a Meaaage Mill 
report it. the tape on the un't Mill be reMOund. and the unit 
prevented fro* executing further read operations. 



UOROP 
5» 

•BYPASS. LITEST 
LITEST. -(SP) 
•BYPASS. -CSP) 
♦2.-(SP) 
SP.RO 
C»PNTF 
•6.SP 
T5EXIT 



iHAVE ALL UNITS BEEN DROPPED ? 

:G0 START THE TEST 

: PRINT THE TEST BYPASSED MESSAGE 



iGET OUT IF NONE LEFT TO TEST 



CLOCK ;IS THE CLOCK ENABLED 

G05 ;N0. THEN CAN'T PRINT TIME 

♦TIME . <8 . HOURS > . 'B . MINUTE > . <B , SEC0N0> . 

(SP) 
SECOND. (SP) 

(SP) 
MINUTE. (SP) 
-(SP) 

HOURS . ( SP ) 
•TIME. (SP) 
♦4. (SP) 
SP.RO 
C*PNTF 
•12. SP 



PC.CLREOT 
ffONLB.TSTMSK 

•TF.PE, FORMAT 
1* 

•TSTPE 

•TSTPE.-(SP) 

•l.-(SP) 

SP.RO 

CtPNTF 

•4.SP 

5t 

♦TSTGCR 

•TSTGCR.-(SP) 

•l.-(SP) 

SP.RO 

C»PNTF 

♦4.SP 

•TSTSUC.R5 



sMAKE SURE EOT STATUS IS CLEAR 
.-ALLCU ALREADY ONLINE STATUS 

ARE UE DOING PE ? 
NO. PRINT GCR 
PRINT TESTING IN PE 



} START TEST 

: PRINT TESTING IN GCR 



:SET UP TO 00 A SET UNIT CHAR 



TEST 5: 


Rmmd UnknoMO Ta 




bog* 


045136 


004737 




6323 


045142 


005737 






045146 


001002 




o52 1 


045150 


000137 














045154 


004737 


UOd • » c 




045160 


004737 














045164 


005057 






045170 


012705 


v^^c * o 




045174 


004737 






045200 


005737 






045204 


001427 












DO JO 


045206 


012737 


WW X c 




045214 


012705 






045220 


004737 






045224 


005737 


003704 




045230 


001415 






045232 


C2S737 


003706 




045240 


001565 












6346 


045242 


004737 


033550 




045246 


012705 


045276 




045252 


004737 


021042 




045256 


012737 


001751 












045264 


013737 


003734 




045272 








045272 


104432 






045274 


000016 












6SS4 


045276 


160 






045277 


000 






045300 


000000 






045302 


000001 




6356 








6359 


045304 


010 




6360 


045305 


200 




6361 


045306 


010000 




6362 


045310 


001751 




6363 








6364 








6365 


045312 








045312 








045312 


104401 
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JSR 
TST 
BNE 
JHP 



4t; 



5*: 



lOf : 



T5REU: 



T5R0! 



L 10021: 



JSR 
JSR 

CLS 
MOV 
JSR 
TST 
BEQ 

MOV 
MOV 
JSR 
TST 
BEQ 
CMP 
BNE 

JSR 
MOV 
JSR 
MOV 

MOV 
EXIT 
TRAP 
.UORD 

.BYTE 
.BYTE 
.WORD 
.UORD 

• BYTE 
.BYTE 
.WORD 
.WORD 

.EVEN 
ENOTST 

TRAP 



78 I 



PC.SChEO 

UOROP 

4» 

T5EXIT 

PC.PATCLR 
PC.SOSTUP 

TSTMSK 

♦T5REU.R5 

PC.SCriED 

UOROP 

T5EXIT 

♦TMB'RDTB. TSTMSK 

♦T5RD.R5 

PC.SCHEO 

UOROP 

T5EXIT 

UEOT.UDROP 

5$ 

PC.CLREOT 
♦T5REU.R5 
PC . SCHEO 
•1001. .T5RD.4 

Iftf^ORM. FORMAT 
TST 

CIEXIT 
L 10021 -. 

REU 
NULPAT 
0 
1 

RD 

ALLPAT 

4096. 

1001. 



SEQ 160 



iGO ISSUE THE COMMAND 

;HAVE ALL UNITS BEEN DROPPED ? 

J NO, CONTINUE 

;GET OUT If NONE LEFT TO TEST 

iMAKE SURE UE START UITH PATTERN 1 
.SET UP THE RANDOM SEEDS 

:N0 ALLOWABLE ERRORS 

i POINT RS TO THE REWIND TABLE 

;G0 START THE TEST 

iHAVE ALL UNITS BEEN DROPPED ? 

8 GET OUT IF NONE LEFT TO TEST 

iTAPE MARKS AND TRUNC. RECORDS OK 

;POINT R5 TO THE TEST TABLE 

iGO START THE TEST 

iHAVE ALL UNITS BEEN DROPPED ? 

iGET OUT IF NONE LEFT TO TEST 

iARE THEY ALL AT EOT ? 

! BRANCH IF THEY ARE NOT 



POINT R5 10 THE REWIND TABLE 
GO REWIND ALL UNITS 
RESTORE ITER COUNT 

RESTORE INITIAL TEST FORMAT 



{REWIND 



iREAD RECORDS 



C»ETST 
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TEST 6: Start/Stop Urita/Raad Test 



SEQ 161 



6367 
6360 
6369 
6370 
6371 
6372 
6373 
6374 
6375 
6376 
6377 
6378 
6379 
6380 
6381 
6382 
6383 
6384 

6385 



045314 
045314 



.SBTTL TEST 6: Start/Stop Ur;t«/R«ad Test 



s ♦♦ 
:Th;a 

> 



test rcMinds the tap*, and axacutaa th« foIloMing saquanca: 

1. Uritc 1300 records on* at a time, 
; 2. Urite <> file marks CLEOT). 

s 3 . R*M i nd , 

; 4. Read 1300 records on* at a tiire, 

: 5. Skip to LEOT. 

: 6 . RcM i nd , 
• 

:This sequence m!11 permit hardware retries, if not user disabled. 
:This test Mill run until exhaustion of the command count or fatal error 
sis detected. All data patterns including random data m!11 be used 
tin this test. 



T6: 



BGNTST 



6386 


045314 


005737 


003704 




START6: 


TST 


UOHOP 


sHAVE ALL UNITS BEEN DROPPED ? 


6387 


045320 


001014 








BNE 


s« 


:G0 START THE TEST 


6388 


045322 










PRINTF 


♦BYPASS. LITEST 


i PRINT THE TEST BYPASSED MESSAGE 




045322 


013746 


002114 






MOV 


L»TEST.-(SP) 






045326 


012746 


020527 






nov 


♦BYPASS. -CSP) 






045332 


012746 


000002 






MOV 


♦2.-(SP) 






04S336 


010600 








MOV 


SP.RO 






045340 


104417 








TRAP 


CIPNTF 






04SS42 


062706 


000006 






ADD 


♦6.SP 




6389 


045346 


000137 


046034 






JMP 


T6exiT 


;GET OUT IF NONE LEFT TO TEST 


6390 


















6391 


045352 


105737 


002216 




5(: 


TSTB 


CLOCK 


sis THE CLOCK ENABLED 


6392 


045356 


001421 








BEQ 


G06 


iNO. THEN CAN'T PRINT TIME 


6393 


045360 
045360 


005046 








PRINTF 
CLR 


♦TIME.<B.HOURS> 

-CSP) 


.<B. MINUTE >.<B. SECOND >. 




045362 


153716 


002221 






BISB 


SECOND. (SP) 






045366 


005046 








CLR 


-CSP) 






045370 


153716 


002220 






BISB 


MINUTE. (SP) 






045374 


005046 








CLR 


-CSP) 






045376 


153716 


002217 






BISB 


HOURS. (SP) 






045402 


012746 


020037 






MOV 


♦TIME.-(SP) 






045406 


012746 


000004 






MOV 


♦4.-(SP) 
SP.RO 






04S412 


010600 








MOV 






045414 


104417 








TRAP 


C$PNTF 






04S416 


062706 


000012 






AOO 


♦12. SP 




6394 


















6395 


045422 


004737 


033550 




G06: 


JSR 


PC.CLREOT 


sMAKE SURE EOT STATUS IS CLEAR 


6396 


045426 


012737 


000100 


003616 




MOV 


♦OM.B.TSTMSK 


sALLOU ALREADY ONLINE STATUS 


6397 
















6398 


045434 


022737 


000002 


003732 




CMP 


♦TF.PE. FORMAT 


:ARE UE DOING PE ? 


6399 


045442 


001011 








BNE 


1« 


:N0. PRINT GCR 


6400 


045444 










PRINTF 


♦TSTPE 


s PRINT TESTING IN PE 




045444 


012746 


020610 






MOV 


♦TSTPE.-CSP) 






045450 


012746 


000001 






MOV 


«1.-(SP) 






045454 


010600 








MOV 


SP.RO 






045456 


104417 








TRAP 


C»PNTF 






045460 


062706 


000004 






ADD 


♦4.SP 
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SEQ 162 



6401 


045464 


000410 




6402 


045466 








045466 


012746 


020562 




045472 


012746 


000001 




045476 


010600 






045500 


104417 






045502 


062706 


000004 


6403 


045506 


012705 


042324 


6404 


045512 


004737 


021042 


6405 


045516 


005737 


003704 


6406 


045522 


001002 




6407 


045524 


000137 


046034 


6406 








6409 


045530 


004737 


033772 


6410 


045534 


004737 


033636 


6411 








6412 


045540 


005037 


003616 


6413 


045544 


005737 


003704 


6414 


045SS0 


001531 




6415 








6416 


045552 


012705 


046056 


6417 


045556 


004737 


021042 


6416 


045562 


005737 


003704 


6419 


045566 


001522 




6420 


045570 


012737 


002424 


6421 








6422 


045576 


012705 


046064 


6423 


045602 


004737 


021042 


6424 


045606 


005737 


003704 


6425 


045612 


001510 




6426 


045614 


005337 


003546 


6427 


045620 


001366 




6428 








6429 


045622 


012705 


046072 


6430 


045626 


004737 


021042 


M31 


045632 


005737 


003704 


6432 


045636 


001476 




6433 








6434 


045640 


012705 


046056 


6435 


045644 


004737 


021042 


6436 


045650 


005737 


003704 


6437 


045654 


001467 




6438 








6439 


045656 


004737 


033772 


6440 


045662 


004737 


033636 


6441 


045666 


012737 


002424 


6442 








6443 


045674 


012705 


046100 


6444 


045700 


004737 


0<;1042 


6445 


045704 


005737 


003704 


6446 


045710 


001451 




6447 


045712 


005337 


003546 


6448 


045716 


001366 




6449 








6450 


045720 


052737 


000001 


6451 


045726 


012705 


046106 


6452 


045732 


004737 


021042 



3*: 



4«: 



5<: 



10«! 



BR 


3t 


; START TEST 


PRINTF 


•TSTGCR 


i PRINT TESTING IN GCR 


nov 


*TSTGCR.-(SP) 




nrv 


•l.-CSP) 




MOV 


SPtRO 




TRAP 


CtPNTF 




ADO 


«4.SP 




MOV 


♦TSTSUC.RS 


:SET UP TO DO A SET UNIT CHAR 


JSR 


PC , SCHEO 


iGO ISSUE THE CUnTIAND 


TST 


UDROP 


iHAVE ALL UNITS BEEN DROPPED ? 


BNE 


4t 


iNO. CONTINUE 


JMP 


T6EXIT 


sGET OUT IF NONE LEFT TO TEST 


JSR 


PC.PATCLR 


:MAKE SURE UE START UITH PATTERN 1 


ICO 

JSR 


PC . SOS T UP 


;HLSbl Int HHNUUn SttUS 


CLR 


TSTMSK 


iALLOU NO ERRORS 


TST 


UDROP 


{HAVE ALL UNITS BEEN DROPPED ? 


BEQ 


T6EXIT 


J GET OUT IF NONE LEFT TO TEST 


MOV 


«T6REU,R5 


:SET UP TO DO REWIND 


ICQ 


PL . SLncU 


;uU i.9SUC lU nLL UKi,VtS 


TST 


UDROP 


sHAVE ALL UNITS BEEN DROPPED ? 


BEQ 


T6EXIT 


sGET OUT IF NONE LEFT TO TEST 


MOV 


#1300. .COUNT 


:STEP UP THE WRITE ITERATION COUNT 


nuv 


91 OWN 1 1 N3 


. CCT 1 ID A LtDTTP TTCDATTHU 
; be 1 UK H UNI 1 c XI C.NH 1 XKIfi 


JSR 


PC.SCHED 


iGO DO IT ON ALL DRIVES 


TST 


UDROP 


:HAVE ALL UNITS BEEN DROPPED ? 


BEQ 


T6EXIT 


I GET OUT IF NONE LEFT TO TEST 


DEC 


COUNT 


: SUBTRACT 1 FROM THE ITERATION COUNT 


orlc 


3* 


: nuNc LunnnNUS i u uu . kccp uUXNu 


MOV 


♦T6UTM.R5 


;SET UP TO WRITE A TAPE MARK 


JSR 


PC.SCHED 


iGO DO IT ON ALL DRIVES 


TCT 




; nMVc MLL UNi. 1 b tSccN UHUKrcU r 


BEQ 


T6EXIT 


;GET OUT IF NONE LEFT TO TEST 


MOV 


«T6REU,RS 


sSET UP TO REWIND ALL DRIVES 


JSR 


PC.SCHED 


:G0 CO IT 


TST 


UDROP 


iHAVE ALL UNITS BEEN DROPPED ? 


BEQ 


T6EXIT 


iGET OUT IF NONE LEFT TO TEST 


JSR 


PC.PATCLR 


i START AT PATTERN 1 


JSR 


PC.SDSTUP 


i RESET THE RANDOM SEEDS 


MOV 


«1300. .COUNT 


iSTEP UP THE WRITE ITERATION COUNT 


MOV 


♦T6RD.R5 


}SET UP TO READ AN ITERATION SET 


JSR 


PC.SCHED 


:G0 DO IT ON ALL DRIVES 


TST 


UDROP 


iHAVE ALL UNITS BEEN DROPPED ? 


BEQ 


T6EXIT 


iGET OUT IF NONE LEFT TO TEST 


DEC 


COUNT 


{SUBTRACT 1 FROM THE ITERATION COIMT 


BNE 


10$ 


iMORE COMMANDS TO 00. KEEP GOING 


BIS 


•LEDB. TSTMSK 


:SET UP TO ALLOW LEOT DETECTED 


MOV 


«T6SKD.R5 


iSKIP TO LEOT 


JSR 


PC.SCHED 


iGO DO IT AN ALL DRIVES 



\ 

i 
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6453 


045736 


042757 


AAAAA i 

UOvOOl 


OU3d1d 




Die 




6454 


f%M W.^ MM 

045744 


005737 


OOo r04 






TCT 

T 5T 


1 mono 


6455 


045750 


AX% 

001451 








OCA 


T^C VTT 


6456 
















6457 


045752 


004 HI 


005330 






■ CD 


Of f*l DCAT 


6430 


045 f 50 


A1 O'TAC 

Ole 


AA^A^iL 
U40030 






MAU 

nuv 


V 1 OKtW . K5 




045 f Dc 


004 1 SI 


A0 1 A A O 
UclU4<: 






■ CD 




















646 1 


04D f OO 


vV9 r 3 r 


AAV7A9 
UOO r 




cO« : 


TCT 


DACC t 
Kfl951 


e40c 


V4D f f c 










Que 




AACX. 

0403 


04D f f # 


UV30'9 > 


AAT7AO 
OOO rOc 






OtL 


D &CC 1 

r8b51 


K.A^A 

0404 


U40UVV 


Oee ' 0 ' 


AAAAAO 








1 r , Kt • r UKrln 1 














OCA 








Ol 37X7 


AAAAAO 


WO r Oc 




MAW 

nuv 


ATP DP rnOMAT 




046016 


000137 


045422 






JMP 


G06 
wo 


6468 
















6469 


046022 


012737 


000004 


003732 


251: 


MOV 


«TF.GCR. FORMAT 


6470 


046030 


000137 


045422 






JMP 


G06 


6471 
















6472 


046034 


C05037 


003702 




T6EXIT : 


CLR 


PASSl 


6473 


046040 


013737 


003734 


003732 




nov 


INFORM. FORMAT 


6474 


046046 


004737 


033714 






JSR 


PC.SOSAVE 


6475 


046052 










EXIT 


TST 




046052 


104432 








TRAP 


CIEXIT 




046054 


000040 








.UORO 


L 10022 



6476 



SEQ 163 



I DISALLOW LEOT DETECTED 

J HAVE ALL UNITS BEEN DROPPED 7 

J GET OUT IF NONE LEFT TO TEST 

I CLEAR THE EOT INDICATORS 
:SET UP TO REWIND ALL DRIVES 
I GO DO IT 

jIS THIS THE END OF 1ST PASS ? 
} BRANCH IF NOT 
jPASSl - -1 

sUAS 1ST PASS DONE IN PE 7 

i BRANCH IF SO 

{SET TAPE FORMAT TO PE 

s REPEAT TEST. THIS TIME IN PE 

;SET TAl-E FORMAT TO GCR 

; REPEAT TEST. THIS TirC IN GCR 

{RESET "1ST PASS" FLAG FOR NEXT TEST 
{RESTORE INITIAL TEST FORMAT 
{RESET THE RANDOM SEEDS 
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6478 


046056 


160 


T6REU: 


.BYTE 


REU 


6479 


046057 


000 




.BYTE 


NULPAT 


64S0 


046060 


000000 




.WORD 


0 


64S1 


046062 


000001 




.UORO 


1. 


6482 












6483 


046064 


020 


T6WRT : 


.BYTE 


UR 


6484 


046065 


200 




.BYTE 


ALLPAT 


6485 


046066 


020000 




.UORO 


8192. 


6486 


046070 


000001 




.WORD 


1. 


6487 












6488 


046072 


100 


T6UTM: 


.BYTE 


UTM 


6489 


046073 


000 




.BYTE 


NULPAT 


6490 


046074 


000000 




.WORD 


0 


6491 


046076 


000002 




.UORD 


2. 


.492 












b493 


046100 


010 


T6R0: 


.BYTE 


RO 


6494 


046101 


200 




.BYTE 


ALLPAT 


6495 


046102 


020000 




.UORO 


8192. 


6496 


046104 


A A AAA 4 

000001 




.WORD 


1. 


6497 












6498 


046106 


062 


T6SK0: 


.BYTE 


SKD 


6499 


046107 


000 




.BYTE 


NULPAT 


6500 


046110 


000001 




.UORO 


1 


6501 


046112 


000001 




.UORO 


1 


6502 












6503 








.EVEN 




6504 


046114 
046114 




L10022 : 


ENOTST 






046114 


104401 




TRAP 


CIETST 



t REWIND 

, WRITE RECORDS 
sURITE TAPE MARK 
2 READ RECORDS 
sSKIP TO LEOT 
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SEQ 165 



6506 
6507 
6508 
6509 
6510 
6511 
6512 
6513 
6514 
6515 
6516 



.SBTTt. TEST 7: Convarsation Tast 



I ♦♦ 



;Convarsat ion mode Mill run with or without error reports. The user 
scan select, from a list of comnands, a sequence which can be used to 
;e«ulate a known failure mode. Between commands, the user can specify 
: unique delays, ranging from 10 to 250 ms. The user can follow each 
;tape command with integer values. the first indicating the 
sbyte/record/f ile count and the second indicating the * of repetitions 
; necessary for that command. 



6517 


046116 
046116 








T7: : 


BGNTST 


6518 














6519 


046116 


005737 


003704 




START7: 


TST 


6520 


046122 


001014 








BNE 


6521 


046124 










PRINTF 




046124 


013746 


002114 






MOV 




046130 


012746 


020527 






MOV 




046134 


012746 


000002 






MOV 




046140 


010600 








MOV 




046142 


104417 








TRAP 




046144 


062706 


000006 






ADO 


6522 


046150 


000137 


046464 






JMP 


6523 














6524 


046154 


105737 


002216 




5»: 


TSTB 


6525 


046160 


001421 








BEQ 


6526 


046162 
046162 


005046 








PRINTF 
CLR 




046164 


153716 


002221 






BISB 




046170 


005046 








CLR 




046172 


153716 


002220 






BISB 




046176 


005046 








CLR 




046P00 


153716 


002217 






BISB 




046204 


012746 


020037 






MOV 




046210 


012746 


000004 






nov 




046214 


010600 








MOV 




046216 


104417 








TRAP 




046220 


062706 


000012 






ADO 


6527 














6528 


046224 


004737 


033550 




G07! 


JSR 


6529 


046230 


012737 


000100 


003616 




MOW 


6530 














6531 


046236 


012705 


042332 






MOV 


6S32 


046242 


004737 


021042 






JSR 


6533 


046246 


005737 


003704 






TST 


6534 


046252 


001002 








BNE 


6535 


046254 


000137 


046464 






JMP 


6536 














6537 


046260 


005037 


003554 




11: 


CLR 


6538 


046264 


012705 


002232 






MOV 


6539 


046270 


005037 


003616 






CLR 


6540 


046274 


052737 


000001 


003616 




BIS 


6541 














6542 


046302 


004737 


033636 




10*: 


JSR 


6543 


046306 


004737 


033772 






JSR 


6S44 


046312 


062705 


000006 






ADO 



UOROP 
5( 

♦BYPASS, LITEST 

L»TEST.-(SP) 

•BYPASS. -(SP) 

♦2.-(SP) 

SP.RO 

C»PNTF 

«6.SP 

T7EXIT 



sHAVE ALL UNITS BEEN DROPPED ? 
iGO START THE TEST 
PRINT THE TEST BYPASSED MESSAGE 



;GET OUT IF NONE LEFT TO TEST 



CLOCK {IS THE CLOCK ENABLED 

G07 sNO. THEN CAN'T PRINT TIME 

♦TIME . <B . HOURS > . <B .MINUTE > . <B . SECOND > . 

-CSP) 

SECOND, (SP) 
-(SP) 

MINUTE. (SP) 
-CSP) 

HOURS. (SP) 

#TIMe.-(SP) 

♦4.-(SP) 

SP.RO 

CtPNTF 

♦12. SP 



PC.CLRFOT 
♦ONLB.TSTMSK 

♦TIONL.RS 
PC.SCHED 
UOROP 
U 

T7EXIT 

BRCNT 

♦T7TBL.R5 

TSTMSK 

♦LEDB.TSTMSK 

PC.SDSTUP 
PC. PATCLR 
♦T3TSTP.R5 



sMAKE SURE EOT STATUS IS CLEAR 
.-ALLOW ALREADY ONLINE STATUS 

:SET UP TO 00 AN ONLINE 

:G0 ISSUE THE COMMAND 

,HAVE ALL UNITS BEEN DROPPED ? 

sNO. CONTINUE 

J GET OUT IF NONE LEFl TO TEST 

; CLEAR THE BRANCH COUNTER 
; POINT R5 TO TEST 7 TABLE 
:N0 ALLOWABLE ERRORS 
sSET UP TO ALLOW LEOT DETECTED 

:SET UP THE RANDOM SEEDS 

iUSE THE SAME PATTERN 

5MOVE R5 TO THE NEXT TEST TABLE 
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T» >T 7: 


Conversation Tost 




6545 


046S16 


122 765 


% 77777 


000000 


6546 


046924 


OU149 r 






6547 


046326 


122 r09 




000000 


6548 


046334 


AA i A 1 i 






6549 


/VAX W£ 


A1 ^CTil 


AAAAA9 




6550 










6551 


v40i4« 


A1 ■•■7AO 


AA31 1 il 




6552 


v40540 








6553 


04009U 








6554 


04e93c 


nn<kVm 






6555 










6556 










6557 










6558 




ASS res 




000000 


6559 




nni nxi 






6560 




ft'<37'*7 


AAAAA1 


003674 


6561 




VA* aWO 






6562 




V^S lot 


AAOOO 1 


003674 


6563 






vvvw^ 


003554 


6564 










6565 




JJ ' 






6566 




AA1 AAA 






6567 




w^S 'Or 


wvwx 


003674 


6568 




WW • s^ 






6569 






vwws 




6570 


V^O^ JO 




wsswc 




6571 










6572 


046442 


062705 


000006 




6573 


046446 


005301 






6574 


046450 


001374 






6575 










6576 


046452 


004737 


021042 




6577 


046456 


005737 


003704 




6578 


046462 


001307 






6579 


046464 


004737 


033714 




6580 


046470 










046470 


104432 








046472 


000002 







6581 
6582 
6583 
6584 

6585 046474 
046474 

046474 104401 

6586 

6587 046476 
6588 
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CMPB 


♦-l.CM0(R5) 




BEQ 


T7EXIT 




f MOO 


AVI A PMA/DC^ 




SHE 


40$ 




MOV 


ITMCNT(R5).R1 


201: 


MOV 


LtOLY.R2 


30»: 


DEC 


R2 




BNE 


30$ 




UtL 


oi 




BNE 


20$ 




BR 


10$ 


40«: 


CMPB 


«300.CMOCR5) 




BNE 


80$ 




BIT 


♦T7BRFL.PCFLAG 




Que 






BIS 


♦T7BRFL.PCFLAG 




MOV 


ITRCNT(R5),BRCNT 


50t: 




DItUN 1 




BNE 


60$ 




BIC 


#T7BRFL.PCFLA6 




BR 


10$ 


60$: 


MOV 


ITMCNT(R5).Rl 




MOV 


♦T7TBL.R5 


70>: 


ADO 


♦TSTSTP.R5 




DEC 


Rl 




BNE 


70$ 


80»: 


ICQ 






TST 


UOROP 




BNE 


10$ 


T7EXIT 


: JSR 


PC.SOSAVE 






TQT 




TRAP 


C$EXIT 




.WORD 


L 10023 




.EVEN 






ENOTST 




L 10023 








TRAP 


C$ETST 




ENOMOO 





SEQ 166 



;IS IT AN ENO Of SEQUENCE COMMAND ? 

iGET OUT IF IT IS 

:IS IT A DELAY COMMAND ? 

:N0 KEEP GOING 

:PUT THE DELAY VARIABLE IN Rl 

:GET THE PROGRAM DfLAY VARIABLE 
: DECREMENT R2 
iKEEP GOING TILL ZERO 
{DECREMENT Rl 

iRESET R2 AND GO TILL Rl IS ZERO 
sGET THE NEXT COMMAND 

:IS IT A BRANCH COMMAND ? 
sNO. GO ON 

s HAVE UE ALREADY LOAD THE BRANCH COUNT ? 

I YES. DON'T OVER WRITE IT 

s REMEMBER THAT YOUR IN A LOOP 

i ITERATION COUNT TO BRANCH COUNT 

: HAVE UE BRANCHED THE REQUIRED TIMES ? 

; NO. CONTINUE LOOPING 

s CLEAR THE BRANCH FLAG 

: GET NEXT COMMAND 

iPUT THE COMMAND NUMBER IN Rl 

; POINT R5 TO TEST 7 TABLE 

! START STEPPING R5 TO THE COMMAND 
J IS THIS THE RIGHT PLACE ? 
:N0. KEEP GOING 

:G0 ST^RT THE TEST 

:HAVE ALL UNITS BEEN DROPPED ? 

:N0. KEEP TESTING 

:SAVE THE RANDOM SEEDS 
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SEQ 167 



6591 
6593 
6604 
6605 
6633 
6634 
6635 
6636 
6637 
6638 
6639 
t640 
6641 
6642 
6643 
6644 
664S 



6646 
6647 



6648 



6649 

6650 

6651 
6652 
6653 
6«S4 
6655 
6656 



046476 



046476 
046476 
046500 

046500 
046500 
046502 
046504 
046506 
046510 
046510 
046512 
046514 
046516 
046520 

046522 
046522 



046524 
046541 

046564 

046564 



000032 



000031 
046524 
160002 
177564 

001032 
046541 

000777 
000000 
000251 



021004 



124 
124 



.TITLE PARAMETER CODING 

.SBTTL HARDWARE PARAMETER CODING SECTION 
BGNMOD 



THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



LtHARD: : 



BGNHRD 

.WORD L10024-LIHARD/2 



GPRMA TKIPAD. 0.0. 160002. 177564. YES 

.WORD T«CODE 

.WORD TKIPAO 

.WORD TtLOLIM 

.WORD TtHILIM 

GPRMO TKUNT. 2. 0.777. 0.251. YES 

.WORD TtCOOE 

.WORD TKUNT 

.WORD 777 

.WORD TtLOLIM 

.WORD TIHILIM 

EXIT HRO 

.WORD TtCGOE 



113 
057 



111 TKIPAO: 
il5 TKUNT: 
.EVEN 



L 10024: 



.ASCIZ 
.ASCIZ 

ENDHRO 
.EVCN 



7TKIP ADDRESS? 
.'T/MSCP UNIT NUMBER? 



PARAf«TER COOING MACRO Y05.02 

SOFTUARE PARAMETER COOING SECTION 



6658 
6659 
6660 
(661 
6662 
6663 
6664 
6665 

666S 
6669 



6670 
6671 



6672 
667S 



6674 



6675 
6676 



6677 
667* 

6679 



6660 
6681 



6682 



Monday 26-Aug 85 09:54 P»g« 63 



.SBTTL SOFTWARE PARATCTER COOING SECTION 



: THE SOFTWARE PARAMETER COOING SECTION CONTAINS MACROS 
t THAT ARE USED Sr THE SUPERVISOR TO BUILD P- TABLES. THE 
I MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARC 
( INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATICMS 
WITH THE OPERATOR. 



SEQ 166 



046564 






BGNSFT 




0465O* 


vOlOO ' 






L 10023 - L * SlJr^ T /2 


046566 




L»S0FT: 






046S6S 






GPRML 


ECLK.O.l.YES 


046566 


000130 




.WORD 


TICOOE 


046570 


047422 




.WORD 


ECLK 


046572 


000001 




.WORD 


1 


046574 






XFERF 


51 


046574 


013044 




.WORD 


TICOOE 


046576 






GPRMD 


HOUR. O.D. 177400.0.24. .YES 


046576 


000052 




.WORD 


TICOOE 


046600 


047453 




.WORD 


HOUR 


046602 


177400 




WORD 


177400 


046604 


000000 




.WORD 


TILOLIM 


046606 


000030 




.WORD 


TIHILIM 












046610 


001052 




.WORD 


TICOOE 


046612 


047535 




.WORD 


MINT 


046614 


000377 




.WORD 


000377 


046616 


000000 




.WORD 


TILOLin 


046620 


000074 




.WORD 


TIHILIM 


046622 




51: 


GPRML 


CTPA.4.400.YES 


046622 


002130 




.WORD 


TICO(^ 


046624 


047602 




.WORD 


CTPA 


046626 


000400 




.WORD 


400 


046630 






XFERF 


101 


046630 


007044 




.WORD 


TICOOE 


046632 






GPRML 


SERC.6.1.YES 


046632 


003130 




.WORD 


TICOOE 


046634 


047637 




.WORD 


SERC 


046636 


000001 




.WORD 


1 


04M40 






GPRML 


SERR.6.400.YES 


046640 


003130 




.WORD 


TICOOE 


046642 


047703 




.WORD 


SERR 


046644 


000400 




.WORD 


400 


046646 




10* : 


GPRML 


DENS, 10.1. YES 


046646 


004130 




.WORD 


TICOOE 


046650 


047745 




.WORD 


OEMS 


046652 


000001 




.WORD 


1 


046654 






GPRML 


PRPA.10.400.YES 


046654 


004130 




.WORD 


TICOOE 


046656 


050016 




.WORD 


PRPA 


046660 


000400 




.WORD 


400 
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6603 046662 








13* 


046662 






Lmon 
. WUKD 


1 •LUUfc 


6654 046664 






oKKnL. 


cncD « 9 1 vcc 


0*6664 






. HUHU 


T A^nfftc 
1 fbUUC 


046666 






. WUHO 


coco 


0*6o »0 






. WUNU 


1 


OOB3 0400'C 






ArcK 1 


1 1 A 




AAA A 9^ 




.WllfU 


1 VLUUC 


^ M mm. ^MMM "mm 
OOOO VWO r4 






ROOM 


CBCD 1 o Ann vcc 








unon 


T A^nnc 

I •LUUc 


















unon 




DOO r (MO rUc 




1 1 t • 


ROOM 


unn iA t vrc 

rHJLL 1 1* fit TO 








unon 






AK/\« ej- 




unon 










unon 


1 


OOOS W*0'iW 
















unon 










unon 


PIMP 








unon 






















TCP A 1ft 1 YFC 








unon 










unon 


T<;PA 




WV\A/X 






1 


















yORD 












PATF 16 n 177AOO O 7 YFC 










Ttf OOF 










PATF 




1 77AAA 






iff 




WWW 






Til (V TH 




www r 






TiHTl TH 


AJLO'V OAA7AO 
OOY9 ^^Of^V 








1 • CV • A a • w a 


046740 






UQRO 


TICOOE 








UQRO 


T5CP 




AAAAA1 

vwwx 




yoRD 










GPRHL 


f!HGF 20 400 YES 




A1 A1 X(% 




yORD 


TICOOE 




OU171 

V7W<9 V X 






CHGF 




^AA^*W 






400 








XFERT 










yORD 










XFFR 










yORD 




6697 










669S 046760 




2S<: 


GPRtO 


CMOl . 22 . 0 . 000377 . 0 . 377 . YES 


046760 


01 1032 




.UORO 


TICOOE 


046762 


0S0532 




.UORO 


cnoi 


046764 


000377 




.WORD 


000377 
TILOLIM 


046766 


000000 




.UORO 


046770 


000377 




.UORO 


TIHILIM 


6699 046772 






GPRHO 


ORAT.22.0, 177400.0. 7. TES 


046772 


011032 




.UORO 


TICODE 


046774 


050424 




.UORO 


OPAT 


046776 


177400 




.UORO 


177400 


047000 


000000 




.UORO 


TILXIM 
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6700 



6701 



6702 
6705 



6704 



6705 



6706 



6707 
6708 



6709 



-5710 



047002 
047004 
047004 
047006 
047010 
047012 
047014 
047016 
047016 
047020 
047022 
047024 
047026 

047030 
047030 
047032 
047034 
047036 
047040 
047042 
047042 
047044 
047046 
047050 
047052 
047054 
047054 
047056 
047060 
047062 
047064 
047066 
047066 
C47070 
047072 
047074 
047076 

047100 
047100 
047102 
047104 
047106 
047110 
047112 
047112 
047114 
047116 
047120 
047122 
047124 
047124 
047126 
047150 
047132 
047134 



000007 

012052 
050443 

177777 
000000 
020000 

013052 
050505 
177777 
000000 
065000 



014032 
050540 

000377 
000000 
C00377 

014032 
050424 

177400 
000000 
000007 

015052 
050443 
177777 
000000 
020000 

016052 
050505 
177777 
000000 
065000 



017032 
050546 
000377 
000000 
000377 

017032 
050424 
177400 
000000 
000007 

020052 
0S0443 

17777 » 
000000 
020000 
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.WORD 


TIHILIM 


GPRMD 


ICNT. 24.0. 177777. O.MAXBUF. YES 


Linon 
. WUnU 




.UORO 


ICNT 


.UORD 


177777 


.WORD 


TILOLIM 


.WORD 


T»HILIM 


3PRM0 


ITER , 26 . 0 . 177777 . 0 . 65000 . YES 


.WORD 


T»CODE 


.WORD 


ITER 


.UORO 


177777 


.UORO 


TILOLIM 


.UORO 


T$H1LIM 


GPRMO 


CM02 .30.0. 000377 .0.377. YES 


.UORO 


TICOOE 


.UORO 


CM02 


.UORO 


000377 


.UORO 


TILOLIM 


.UORO 


TIHILIM 


GPRMO 


OP AT . 30 . 0 . 1 77400 . 0 . 7 , YES 


.UORO 


T»COOE 


.UORO 


OPAT 


.UORO 


177400 


.WORD 


TILOLIM 


.UORD 


T»HILIM 


GPRMO 


ICNT .32.0. 177777 . 0 . MAXBUF . YES 


UORO 


T $CODE 


!uoRO 


ICNT 


.UORO 


177777 


.UORO 


TILOLIM 


.UORO 


TIHILIM 


GPRMO 


ITER . 34 .0. 177777 .0.65000. YES 


.UORO 


TICOOE 


.UORO 


ITER 


.UORO 


177777 


.UORO 


TILOLIM 


.UORD 


TIHILIM 


GPRMO 


CM03 . 36 . 0 . 000377 . 0 . 377 . YES 


.UORO 


TICOOE 


.UORD 


CM03 


.UORO 


0003 ^ / 


.UORO 


TILOLIM 


.UORO 


TIHILIM 


GPRMO 


OPAT. 36. 0.177400. 0.7. YES 


. UORO 


TICOOE 


.UORD 


OPAT 


.UORD 


177400 


.UORO 


TILOLIM 


.UORD 


TIHILIM 


GPRMD 


ICNT. 40.0. 177777. O.MAXBUF. YES 


.WORD 


TICOOE 


.WORD 


ICNT 


.UORO 


177777 


.UORD 


TILOLIM 


.UORD 


TIHILIM 
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047156 






ITER. 42. 0.177777.0. 65000. TES 




047156 


021052 


.WORD 


TICOOC 




047140 


050505 


.UORO 


ITER 




047142 


177777 


.WORD 


177777 




047144 


000000 


WORD 


TtLOLin 




047l4'i 


065000 


.WORD 


T»HlLin 


6 12 


047i^ 




XFER 


CONTl 




047150 


002004 


.WORD 


TICOOE 


6715 










6"'1« 


047152 




SFTEXl: XFER 


SFTEX2 




047152 


076004 


.UORO 


TICOOt 


6715 










6''16 


047154 




CONTl: GPRHO 


CM04. 44. 0.000577.0. 577. YE'i 




047154 


022032 


.UORO 


TtCOOE 




047156 


050554 


.UORO 


CM04 




'>47160 


000577 


.UORO 


000377 




047162 


000000 


.UORO 


TILOLIM 




047164 


000J77 


.WORD 


TIHILIM 


6^7 


047166 




GPRMO 


OPAT. 44. 0.177400. 0.7. YES 




047166 


C22032 


.UORO 


T»C00E 




047170 


050424 


.UORO 


0P4T 




047172 


177400 


.WORD 


177400 




047174 


OOOOOO 


.UORO 


T»LCH.IM 




047176 


000007 


.UORO 


TIHILIM 


6718 


047200 




GPRno 


ICNT. 46.0. 177777. O.H*X8UF.rES 




047200 


023052 


.UORO 


TICOOE 




047202 


050443 


.UORO 


ICNT 
17 7777 




047204 


177777 


.UORO 




047206 


OOOOOO 


.UORO 


TliOLlM 




047210 


020000 


.UORO 


TIHILIM 


6719 


047212 




GPRrC 


ITER.50.0. 177777,0.65000. YES 




047212 


024052 


.UORO 


TtCOOE 




047214 


050505 


.UORO 


ITER 




047216 


177777 


.UORO 


177777 




047220 


OOOOOO 


.UORO 


T»LOLIM 




047222 


065000 


.UORO 


TIHILIM 


6720 










6721 


047224 




GPRW) 


Cf«5. 52. 0.000377. 0.377. YES 


047224 


025052 


.UORO 


TICOOE 




047226 


050562 


.UORO 


CM05 




047250 


000377 


.UORO 


000377 




047232 


OOOOOO 


.UORO 


TILOLIM 




047234 
0472S6 


000377 


.UORO 


TIHILIM 


6722 




GPRMD 


OPAT. 52. C. 177400. 0.7. YES 




047236 


025032 


.UORO 


TICOOE 




047240 


050424 


.UORO 


OPAT 




047242 


177400 


.UORO 


177400 




047244 


OOOOOO 


.UORO 


TILOLIM 




047246 


000007 


.UORO 


TIHILIM 


6 725 


047250 




GPRflO 


ICNT.54.D. 177777. O.MAXBUF. YES 


047250 


026052 


.UORO 


TICOOE 




047252 


050445 


.UORO 


ICNT 




047254 


177777 


.UORO 


177777 




C47256 


OOOOOO 


.UORO 


TILOLIM 




047260 


020000 


.UORO 


TIHILIM 




047262 




GPRflO 


I7ER.56.0. 177777. 0.65000. YES 




047262 


027052 


.UORD 


TICOOE 
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047264 


050505 


.UORD 


ITER 




047266 


177777 


.UORD 


177777 




047270 


000000 


.UORD 


TILOLIM 




047272 


065000 


.WORD 


TIHILIM 


6725 










6 ■'26 


047274 




GPRMD 


CMD6. 60. 0.000377. 0.377, YES 




047274 


030032 


.UORD 


TtCODE 




047276 


050570 


.UORD 


CM06 




047300 


000377 


. UORD 


000377 




047302 


000000 


.UORD 


TILOLIM 




047304 


000377 


.UORD 


TIHILIM 


6727 


047306 




GPRflO 


DPAT,60,0. 177400.0. 7, YES 




047306 


030032 


.UORD 


TICOOE 




047310 


050424 


.UORD 


OPAT 




047312 


177400 


. UORD 


177400 




047314 


000000 


.UORD 


TILOLIM 




047316 


000007 


.UORD 


TIHILIM 


6728 


047320 




GPRHO 


ICNT . 62 , 0 . mm . 0 . MAXBUF . YES 




047320 


031052 


.UORD 


TICOOE 




047522 


CS0443 


.UORD 


ICNT 




047324 


177777 


. UORD 


177777 




047326 


000000 


. UORD 


TILOLIM 




047330 


.020000 


.UORD 


TIHILIM 


6729 


047332 




GPRMD 


ITER. 64,0. 177777.0.65000. YES 




047332 


032052 


.UORD 


TICOOE 




047334 


050505 


.UORD 


ITER 




047336 


177777 


. UORD 


• ^^^^ ^ 

177777 




047340 


000000 


. UORD 


T ILOLIM 




047342 


065000 


.UORD 


TIHILIM 


6730 


047344 




X^ER 


C0NT2 


047344 


002004 


. UORD 


T ICODE 


6731 










6732 


047346 




SFTEX2: XFER 


Sr TEX3 




047346 


025004 


.UORD 


T ICODE 


6733 










67S4 


047350 




C0NT2 : GPRMO 


CMD7 . 66 . 0 . 000377 .0 , 377 , YES 




047350 


033032 


.UORD 


TICOOE 




047352 


050576 


.UOnO 


CnD7 




047354 


000377 


.WORD 


000377 




047356 


000000 


. UORD 


TILOLIM 




047360 


000377 


. UOHD 


TIHILIM 


6735 


047362 




GPRfW 


DPAT .66 , 0, 177400,0, 7 . YES 


047362 


033032 


. UORD 


T t CODc 




047364 


050424 


. WOHO 


OPAT 




047366 


177400 


. UOnU 


J 77400 




047370 


OOOOOO 


. UORD 


T ILOLIM 




1 Sic 


OW/WU f 




T IHILIM 


6736 


047374 




GPRMO 


ICNT , 70 . D , 177777 . 0 . MAXBUr . YES 




047374 


034052 


.UORD 


TICOOE 




047376 


050443 


.UORD 


ICNT 




047400 


177777 


.WORD 


177777 




047402 


OOOOOO 


.UORD 


TILOLIM 




047404 


020000 


.UORD 


TIHILIM 


6737 


047406 




GPRMO 


ITER . 72 . D . 177777 , 0 , 65000 , YES 




047406 


035052 


.UORD 


T ICODE 




047410 


050505 


.UORD 


ITER 




047412 


177777 


.UORD 


177777 
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047414 


000000 








.WORD 


TILOLIM 




047416 


065000 








.WORD 


T«HILIM 


6738 
















6739 


047420 
047420 


070004 






SFTEX3: 


XFER 
.UORO 


SFTEX4 
TfCOOE 


6740 
















6741 


047422 


105 


116 


101 


ECLK : 


.ASCIZ 


/ENABLE TIME OF DAY CLOCK/ 


6742 


047453 


040 


111 


116 


HOUR: 


.ASCIZ 


/ INPUT HOUR IN 24 HOUR FORMAT (CMIT LEADING 


6743 


047535 


040 


111 


116 


MINT: 


.ASCIZ 


/ INPUT MINUTES (OMIT LEADING ZERO)/ 


6744 












.EVEN 




6745 
















6746 


047600 
047600 


106004 






SFTEX4: 


XFER 
.WURD 


SFTEX5 
TICODE 


6747 
















6748 


047602 


103 


110 


101 


CTPA: 


.ASCIZ 


/CHANGE CONTROLLER PARAMETERS/ 


6749 


047637 


040 


105 


116 


SERC: 


.ASCIZ 


/ ENABLE CONTROLLER ERROR CORRECTION/ 


6750 


047703 


040 


105 


116 


SERR: 


.ASCIZ 


/ ENABLE CONTROLLER ERROR RECOVERY/ 


6751 


047745 


040 


111 


116 


OENS: 


.ASCIZ 


/ INTITIAL DENSITY OF EACH TEST IS 6CR/ 


6752 












.EVEN 




6753 
















6754 


050014 
050014 


060004 






SFTEX5: 


XFER 
.UORO 


SFTEX6 
TICODE 


6755 
















6756 


050016 


103 


110 


101 


PRPA: 


.ASCIZ 


/CHANGE PRINTING PARAMETERS/ 


6757 


050051 


040 


105 


116 


SOER: 


.ASCIZ 


/ ENABLE SOFT ERROR REPORT PRINTING/ 


6758 


050114 


040 


040 


105 


SRER: 


.ASCIZ 


/ ENABLE READ SOFT ERRORS ONLY/ 


6759 












.EVEN 




6760 
















6761 


050154 
050154 


043004 






SFTEX6: 


XFER 
.UORO 


SFTEX7 
TfCODE 


6762 
















6763 


050156 


040 


105 


116 


NOCL: 


.ASCIZ 


/ ENABLE CLEAR STATS ON FATAL ERROR/ 


6764 


050221 


040 


105 


116 


POMP: 


.ASCIZ 


/ ENABLE VARIABLES DUMP ON ERROR/ 


6765 












.EVEN 




6766 
















6767 


050262 
050262 


060004 






SFTEX7: 


XFER 
.UORO 


SFTEX8 
TICODE 


6768 
















6769 


050264 


103 




101 


TSPA: 


.ASCIZ 


/CHANGE TEST PARAMETERS/ 


6770 


050313 


040 


10<» 


101 


PATE: 


.ASCIZ 


/ DATA PATTERN/ 


6771 


050331 


040 


105 


116 


T5CP: 


.ASCIZ 


/ ENABLE DATA COMPARES IN TEST 5/ 


6772 


050371 


040 


103 


110 


CHGF: 


.ASCIZ 


/ CHANGE COMMAND SEQUENCE/ 


6773 












.EVEN 




6774 
















6775 


050422 
050422 


043004 






SFTEX8: 


XFER 
.UORO 


SFTEX9 
TICODE 


6776 
















6777 


050424 


040 


040 


104 


DPAT: 


.ASCIZ 


/ DATA PATTERN/ 


6778 


050443 


040 


040 


111 


ICNT: 


.ASCIZ 


/ ITEM COUNT (BYTE. RECORD. OBJECT)/ 


67 79 


050505 


040 


040 


111 


ITER: 


.ASCIZ 


/ ITERATION COUNT/ 


6780 












.EVEN 




6781 
















6782 


050530 
050530 


026004 






SFTEX9: 


XFER 
.UORO 


SFTEXT 
TICODE 


6783 
















6784 


050532 


103 


115 


104 


CMDl: 


.ASCIZ 


"CMO/1" 


6785 


050540 


103 


115 


104 


Ct1D2: 


.ASCIZ 


"CMD/2'' 
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6786 
6787 
6788 
6789 
6790 
6791 
6792 
6793 
6794 



6795 
6802 
6803 
6604 
680S 
6806 
6807 
6808 
6809 
6610 
6611 



6812 
6813 
6614 



6615 
6816 
6817 

6618 
6619 
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050546 
050554 

050562 

050576 


105 
103 
103 
103 

X w <J 

103 


115 
115 
115 
115 
115 


104 
104 
104 
104 
104 


CMD3: 
CM04: 
CM05: 
CM06- 
CMD7: 


.ASCIZ 
.ASCIZ 
.ASCIZ 
ASCIZ 
.ASCIZ 
.EVEN 


••CMD/3" 
"CMO/4" 
"CMO/5" 
"CMO/6" 
"CMD/7" 






050604 
050604 








SFTEXT : 
L 10025: 


ENOSFT 
.EVEN 








050604 










ENDMOD 








050614 
070614 








R06UF : : 
URTBUf : 




.BLKU 
.BLKU 


4 

10000 
10000 


5 READ BUFFER 
; WRITE BUFFER 


110614 








PATCH: : 




.BLKU 


50 


J PATCH SPACE 


110734 

110734 
110736 
110740 


110750 
000004 






LILAST: 


LASTAO 
• EVEN 
.UORD 
.UORD 


TIFREE 
T)SIZE 







110740 
110740 
110740 
110742 
110744 
110744 
110746 
110750 
110750 
110750 



000000 
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G 


OP. ABO- 


000001 

WWW A 


G 


L '. CRF ■ 


000000 


G 


MO CSE- 


020000 


G 


OP ACC- 


000020 


G 


L iCSVR" 


000024 


G 


MO. OLE- 


000200 


G 


OP. ACP- 


000102 


G 


L.OFLG" 


000054 


G 


MO. EXC" 


000040 


G 


OP. AVA- 


000100 


G 


L .ORVC" 


000053 


G 


MO . IMM- 


000100 


G 


OP . AVL- 


000010 


G 


lIdrvs* 


000064 


G 


MO NXU> 


000001 


G 


OP.CMP- 


000040 


G 


L !evnt- 


000012 


G 


MD.OBC* 


000004 


G 


op!oap- 


000013 


G 


L.FHVR- 


000050 


G 


MO. REV - 


000010 


G 


OP.ENO- 


000200 


G 


L.FLGS" 


000011 


G 


MO.RUO* 


000002 


G 


OP. ERG - 


000026 


G 


L.FMT • 


000010 


G 


MO. SEC - 


001000 


G 


OP ERS- 


000022 


G 


L.FMTO" 


000042 


G 


MD.SER- 


000400 


G 


OP.GCS- 


000002 


G 


L.FSVR" 


000051 


G 


MO.SPO- 


000001 


G 


OP.GUS- 


000003 


G 


L.CPCT* 


000044 


G 


MO. SUP- 


000004 


G 


OP.ONL" 


000011 


G 


L .LBLK- 


000060 


G 


MO. UNL- 


000020 


G 


OP RD - 


000041 


G 


L.LVL ■ 


000042 


G 


MINBLF- 


000024 


G 


OP.REP- 


000045 


G 


L.MLUN- 


000026 


G 


MINITR- 


000144 


G 


OP.SCC" 


000004 


G 


L.OPFL- 


000070 


G 


MINLIM 


010754 


G 


OP.SUC- 


000012 


G 


L.PBLK- 


000056 


G 


MINT 


047535 




OP.UR - 


000042 


G 


L .PSTN- 


000044 


G 


MINUTE 


002220 


G 


OP . UTM- 


000044 


G 


L.RTRY- 


000043 


G 


MISSEQ- 


000005 


G 


OUN 


100000 


G 


L.RUST" 


000066 


G 


MRETRY 


003560 


G 


0$APTS- 


000000 




L.SEQN> 


000006 


G 


MSCPVR- 


000000 


G 


OIAU - 


000000 




L.STI • 


0CO050 


G 


MSGEXT 


015610 




0*BGNR- 


000001 




L.STS " 


000052 


G 


MSGLEN- 


177774 


G 


OIBGNS- 


000001 




L.TRK • 


000055 


G 


MSKTST 


031712 




0*DU - 


000001 




L.UHVR- 


000041 


G 


MTBLOV- 


000040 


G 


OIERRT- 


000001 




L.UNIT" 


000004 


i; 


N 


000004 


G 


OIGNSU- 


000001 




L.UNTI" 


000030 


G 


NCLK 


017763 


G 


OIPOIN- 


000001 




L.USVR- 


000040 


G 


NCLKFL- 


000002 


G 


OISETU- 


000001 




L.VSCR- 


0000^/4 


6 


NOCL 


050156 




PASCNT 


003700 


G 


L 10000 


002'. 14 




NOCLK 


020646 


G 


PASSl 


003702 


G 


LlOOOl 


00.'.322 




NOCLR 


002232 


G 


PATCH 


110614 


G 


L 10002 


014422 




NOTALY" 


000004 


6 


PATCLR 


033772 






020636 




NROY " 


000002 


G 


PATE 


050313 




L 10005 


020700 




NUL 


000000 


G 


PATERN 


002235 


G 


L 10006 


021040 




NULL 


024614 




PATGNl 


022430 




L10007 


036642 




NULPAT- 


000000 


G 


PATGN2 


022444 




LlOOlO 


037754 




NUPASS 


037056 




PATGN3 


022456 




LlOOll 


037756 




NURESP- 


100000 


G 


PATGN4 


022516 




L 10012 


040010 




OBCTHD 


023436 


G 


PATGN5 


022532 




L10013 


040274 




OBJECT 


003676 


G 


PATGN6 


022552 




L 10014 


040S02 




OBJFOH- 


000036 


G 


PATGN7 


022566 




L10015 


042624 




OBJFOL- 


000034 


G 


PATSAV- 


000024 


G 


L 10016 


043444 




OBOFFH- 


000006 


G 


PATTBL 


022412 


G 


L10017 


044304 




OeOFFL- 


000004 


G 


PATl - 


000001 


G 


L 10020 


044736 




OUDFLG- 


000020 


G 


PAT2 - 


000002 


G 


L 10021 


045312 




OFLER 


011545 




PAT3 - 


000003 


G 


L 10022 


046114 




OFLT 


011056 


G 


PAT4 - 


000004 


G 


L 10023 


046474 




OLDl 


027124 




PATS - 


000005 


G 


L 10024 


046564 




0L02 


027204 




PAT6 - 


000006 


G 


L 10025 


050604 




0L03 


027264 




PAT7 - 


000007 


G 


L 10026 


110744 




0L04 


027344 




PCBENO- 


003522 


G 


L 10030 


110750 




ONE 


000001 


G 


PCBSTP- 


000014 


G 


MANCNT 


003562 


G 


ONEFIL- 


000001 




PCB3SP- 


000044 


G 



-9 



SEQ 177 





003674 


G 


PCKSIZ 


010750 


G 


PCMDBF 


003442 


G 


PDCERR- 


000120 


G 


POMP 


050221 




PORECV 


026352 


G 


PEORP ■ 


000130 


G 


PHRORD- 


000112 


G 


PHRDUA- 


000114 


G 


PHROUR- 


000110 


G 


PKPRNT 


015416 




PMEOER- 


000116 


G 


PNOERR- 


000132 


G 


PNT - 


001000 


G 


POLER 


012076 




POLT 


011236 


G 


PORTER 


012317 




POTHRO- 


000124 


G 


POTHUA- 


000126 


G 


POTHUR- 


000122 


G 


PROBYl- 


000164 


G 


PR0BY2- 


000166 


G 


PR0BY3- 


000170 


G 


PR0BY4- 


000172 


G 


PRI - 


002000 


G 


PRIERR 


032714 


G 


PRIPCK 


014040 




PRIOO - 


000000 


G 


PRIOl - 


000040 


G 


PRI02 - 


000100 


G 


PRI03 - 


000140 


G 


PRI04 - 


000200 


G 


PRIOS * 


000240 


G 


PRI06 - 


000300 


G 


PRI07 - 


000340 


G 


PRNTPA 


002227 


G 


PRPA 


050016 




PRTCLR 


026476 


G 


PRTDRV 


026172 


G 


PRTEXT 


0323C2 




PRTINT 


026556 


G 


PSFTRO- 


000106 


G 


PSFTUR- 


000104 


G 


PSTEKO- 


000100 


G 


PSTEUA- 


000102 


G 


PSTEUR- 


000076 


G 


PURBYl- 


000154 


G 


PWR8Y2- 


000156 


G 


PWRBY3- 


000160 


G 


PURBY4- 


000162 


G 


P.BCNT- 


000014 


G 


P.BUFF- 


000020 


G 


P.CHVR- 


000051 


G 


P.CMST- 


000020 


G 


P.CNTF- 


000016 


G 


P.CRF - 


000000 


G 


P.CSVR- 


000050 


G 



P.CTPM- 


000034 


G 


p!ovpm- 


000034 


G 


P.FLGS- 


000011 


G 


P.FMEM- 


000044 


G 


P FORM- 


000040 


G 


P.HTMO- 


000020 


G 


P.MEOI- 


000034 


G 


P MLUN- 


000014 


G 


P.MOO - 


000012 


G 


P.MXUR- 


000044 


G 


P.NREC- 


000050 


G 


P.OPCO- 


000010 


G 


P.OTRF- 


000014 


G 


P.POS - 


000034 


G 


P.RCSK- 


000014 


G 


P.REDD- 


000014 


G 


P.SPEO- 


000042 


G 


P.STS - 


000012 


G 


P.TIME- 


000024 


6 


p.Tncc- 


000020 


G 


P.TMSK- 


000020 


G 


P.TRBC- 


000040 


G 


P.UHVR- 


000053 


G 


P.UNFL- 


000016 


G 


P.UNIT- 


000004 


G 


P.UNTI- 


000024 


G 


P.USVR- 


000052 


G 


P . VRSN- 


000014 


G 


QCMD 


023144 


G 


RANGEN 


023010 


G 


RANURD 


003604 


G 


RANI 


003606 


G 


RAN2 


003610 


G 


RAN3 


003612 


G 


RO 


000010 


G 


R06UF 


050614 


G 


ROR 


000011 


G 


RDRENO 


010456 


G 


RDRENl 


010542 


G 


R0REN2 


010626 


G 


R0REN3 


010712 


G 


RDSOER 


002231 


G 


ROSRGO 


010416 


G 


ROSRGl 


010502 


G 


R0SR62 


010566 


G 


R0SRG3 


010652 


G 


ROTB - 


000002 


G 


ROTER 


012050 




RDTT 


011226 


G 


READ 


024620 




RECCNT 


003726 


G 


RESP 


003572 


G 


RESPON 


003552 


G 


RETOON 


030230 


G 


RETFLG- 


000200 


G 


RETRY 


021232 


G 


RETl 


032150 


G 
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RET2 


032216 


G 


SERREC 


002225 


G 


ST. ABO" 


000002 


G 


REVBIT- 


000001 


G 


SEXB ■ 


000004 


G 


ST. AVL" 


A A A A A A 

000004 


G 


REU ■ 


000160 


G 


SEXCNT 


003544 


G 


ST.BOT" 


AAA A a P 

000015 


G 


REWIND 


025520 




SEXER 


012114 




ST.CMD" 


A AAA A a 

000001 


6 


RLSER 


012452 




SEXT 


011246 


G 


ST . CMP" 


A AAA A ^ 

000007 


G 


RLST 


011306 


G 


SFPTBL 


002216 


G 


ST.CNT" 


A AAA 4 ^ 

000012 


G 


RNOBYT" 


000000 


G 


SFTEXT 


050604 




ST .OAT" 


/\AAAa A 

000010 


G 


RNOITR" 


AAA j^^^ 

000000 


G 


SF TEXl 


A A ^ 4 C% 

047152 




AY A • 

ST .DIA" 


AAAA V^ 

000037 


G 


RNUSAV" 


000020 


G 


Sr TCX2 


AA ^ V A£ 

047546 




FT ABk«_ 

ST . DRV" 


AAAA4 T 
000013 


G 


ROLSAV" 


000022 


G 


Cf VPWV 

Sr TCX3 


AA ^A '^A 

047420 




ST.FNT" 


AA AA 1 A 

000014 


G 


RSPBFO 


004212 


G 


Cr TPWA 


AA^f AA 

047600 




ST.nST" 


AAAA4 4 
OOOOll 


G 


RSPBr 1 


AAV«tf?'\ 

005252 


G 


vc? we 

SF TEX5 


AiE!AA« M 

050014 




ST. LEO" 


AAAA^V 

000023 


G 


RSPBF2 


006312 


G 


Cf TPW£ 

SF TEXo 


ACA 4 C A 

050154 




ST .Mr t" 


AAAAAC 

000005 


b 


RSPBr 3 


007352 


G 


Sr TEX7 


050262 




ST . nSK" 


AAAAV^ 

000037 


b 


RSPCNT 


003540 


G 


SrTEXB 


AC AA 

050422 




CT An _ 
ST.OFL" 


AAAAAV 

000003 


G 


RSPHOL 


027706 


G 


TP wo 


AC AC V A 

050530 




ST .ONL" 


AAA AAA 


b 


RSI " 


001233 


/» 
u 


5KU ■ 


A AAA£ ^ 

OOOOo2 


/* 
u 


CT OAI a 

ST .rOL" 


AAAA31 


G 


RS2 ■ 


007622 


G 


SKP ■ 


AAAAf A 

000060 


G 


CT OAT a 

ST . ROT" 


AAAAOA 
000020 


b 


RS3 " 


oooooo 


G 


SKrTnK 


A^B AV ^ 




CT CPW_ 

ST . SEX" 


AAAA99 

000022 


b 


RTSPRl 


042616 




5KR ■ 


AAAAA 4 

OOOvol 


G 


CT CIIB_ 

ST . SUB" 


AAAAAA 


b 


RTYEL 


012733 




Cl ▼! Iff _ 

SLTUSE" 


A AAA 4 A 

OOOOlO 


G 


CT CI If** 

ST .SUC" 


AAAAAA 

OOOOOO 


b 


RUNJAM 


032500 


G 


SOcR 


AC^\i\d 

030031 




CT TM ■ 

SI . in ■ 


A AAA \ £. 


b 


BUT K 

RUI ■ 


OOOloo 




bOcRRr 


OvcZAO 


b 


CT UDDa 
SI. HfK" 


AAAAAJl 


b 


RIO 


003714 


G 


C AFT a 

50r T ■ 


000003 


b 


CI lOr^uT 

5Udv.NI 


AAT£.AO 


b 


Rll 


AAV ^ 4 £ 

003716 


G 


SOr TcR 


AAVC^A 

003570 


G 


CI IBTTB 

SUBITn 


Oc3c4D 


#■ 
u 


R12 


AA t/\ 

003720 


G 


CB^ _ 


OOOOSO 


b 


CI ncc^ 
SUBScC 


AA9^99 

OOcccc 


b 


R13 


003722 






A1 1^1^ 

01X412 




CI IT a 


AAA1 


b 


RSSAvE 


003740 


G 


CC3 ^AB 1 


A^CI A£ 




CI IPPCC M 


AAAAA1 


b 


R4SAVC 


AAV ^ A ^ 

003742 


G 


brCRcC 






CI Hkll^UD 






B A 


AAV ^ 4 A 

003710 


G 




AAAA'TA 


c 
o 


CI 0DPC 


AOJL1 1 A 




BB 

K9 


AA V ^ 4 O 

003712 


b 


CDD m. 


AAAA*? 1 
(AlvU r X 


b 


CI ILI m 
SUM " 




b 


f APBB 


A4 A^C^ 

010732 


b 


CDCD 


ACA1 1 A 




9V(.uDL." 


VVWWw 




SAvDIr 


AA V£ 1 A 

003ol4 


b 


CTADT 






CWCTMCa 


AAAAAA 
WWW 




sec ■ 


0002 30 


u 


CTADTI 


AA AVAA 




CUPCI Aa 

SVtdUD" 


AAAAAA 
WWW 




f" 

SCO ■ 


000052 


i» 
u 


CTADTO 






dvu 1 nb" 


AAAAAA 
WWW 




SCHEO 


A^4 AA 

021042 


G 


5 1 nN 1 3 






awl. 1 a 1 " 


AAAAAA 
UUWW 




SCNTCn 


025742 




3 1 An 1 4 






a 1 ar w i ■ 


AAAAAA 
UWWU 


b 


f ^B _ 

SCh • 


AAAAK 4 

000051 


b 


CT ADTC 
O 1 AR 1 5 


AAA "7 A A 




e«i CVMa 

a? La in" 


AI AAAA 




SDMTcR 


All 

Ollo54 




b 1 An 1 O 






CI ■ 

ai " 


AAAAAA 
W^vW 


ri 
u 


cn ATT 
5DATT 


01X3IO 


b 


CTADTT 
a 1 An 1 / 






TAI 1 V 
1 MLL T 


A^A^7A 




CBC A tiP 

SDSAVc 


AW? 1 M. 

033714 


l» 


CT ATCD 
b 1 A 1 cn 


Ai OA'7& 




TBI PMHa 


AAXA^A 


f: 
u 


5D5TUP 


033o lO 


b 


CT ATI IC m 

b 1 A 1 Ub* 


A AAA A A 


b 


1 1 r L " 


AAAAAA 
WVW^ 


ij 


SECOND 


002221 


b 


CT ATA1 

bTA 1 01 










b 


ScCRNS 


003724 


b 


C T A T A O 

bTAT02 






TrCTDA 
1 ca 1 




u 


cm 4 _ 

ScDl ■ 


AAA % 

000174 


b 


CTATAT 
b 1 A 1 03 






TP at K a 


AAAA1 A 
WWXU 


IJ 


5cU2 ■ 


AAA 4 ^£ 

OOOl re 


b 


CT ATAA 
b 1 A 1 U4 


AT&1 AT 






AAAAAA 


U 






u 


CTATAS 






TF PE ■ 


000002 


G 


SEEOl - 


000202 


G 


STAT06 


036215 




TF.eOO" 


000001 


G 


SEE02 ■ 


000204 


G 


SIAT07 


036256 




TIME 


020037 


6 


SEEDS • 


000206 


G 


STAT08 


036314 




TIMER 


010742 


G 


SELOAT 


022246 


G 


STAT09 


036360 




TIMERR 


012343 




SELREC 


022712 


G 


STATIO 


036424 




TKERR 


026750 




SEQER 


012400 


G 


STATU 


036462 




TKINIT" 


111400 


G 


SERC 


047637 




STAT12 


036534 




TKIP - 


OOOOOO 


G 


SERCOR 


002224 


G 


STAT13 


036606 




TKIPAO 


046524 




SEREXC* 


000002 


G 


STFPCK 


024342 


G 


TKSA - 


000002 


G 


SERR 


047703 




STINIT 


036644 


G 


TKUNIT- 


000004 


G 



TKUNT 


046541 




TLYEXT 


031106 




TMB ■ 


000010 


G 


TMCNT 


003730 


G 


TMER 


012022 




TMT 


011206 


G 


TPASSl" 


AAAA AA 

000400 


G 


▼Bf Pi 

TPEEL 


A4 ^C ^ ^ 

012572 




TBf f Ba 

TPEERL 


A 4 4 V A£ 

011346 




▼ CB A 

TSrA 


AC A A 

050264 




TSTGCR 


A t AC^ 

020562 


G 


TCTMCI/ 

TainSK 


AAVf 4 £ 

003616 


b 


TSTPE 


020610 


G 


TSTSTP" 


AAAAAA 

000006 


G 


TSTSUC 


AA ^V^A 

042324 




1 VMRbC" 


AAAAAA 

000004 




1 VUUUC" 


A9£AAA 




1 ftHKN" 


AAAAAA 

OOOOvv 




T IcXCr" 


AAAAAA 

OOOOOO 




TAfi Ar*M 
T Ir LMb" 


AAAAA 1 




1 fr Ktfe" 


IIU rso 




T Af MAUm 


AAAAAA 




TAUTI Ta 

T VHILI" 


AACAAA 




TAI ACT* 

' VLHS 1 " 


AAAAA1 




TAI AI T a 

1 VLULX" 


AAAAAA 




TAI CVMm 

T ILSiri" 


AI AAAA 




TAI TklAa 
1 *L 1 NU" 


A AAAA 7 




TAftlPCTa 

1 f Nta 1 ■ 


1 *7*7*7*7*7 
If f f f f 




TAkICA a 

I *NSU ■ 


AAAAAA 




T A ^C \ m 

1 f Nal " 


AAAAAA 




TADf*klTa 

1 IrUrl 1 ■ 


AAAAAA 




T ADTADa 


AI AA07 




T ADTUU m 


AAAAA1 




TADTIJIIa 


AAAAA1 




TACAWI a 

1 fawVL" 


1 77777 




TtCPRI a 

1 vacbc" 


f 77777 




1 vaiAC" 


AAAAAA 




T ACi AM a 
1 •aUorl" 


AAAAAA 




TATAf^l a 
i • 1 HbL ■ 


1 77777 




TATACMa 
1 9 1 MbN" 


AI AA'' 1 




T tTPMDa 
1 9 1 crw ■ 


UUVWv 




TATPCTa 

1 • 1 ca 1 " 


AAAAA7 




TATCTHa 

1 f 1 a 1 n" 


1 77^ 




TATCTCa 

1 * 1 a 1 a" 


AAA 




T A A AI 1 a 
1 • • AU ■ 


AI AA1 A 




T A A AI iTa 
1 f • aU I ■ 


A1AA1 1 

vxwxx 




1 • • 


01001? 




TIIOAT" 


010030 




TIlOU - 


010013 




TIIHAR- 


010024 




TMHU " 


010000 




TMINI- 


010010 




TIIMSG" 


010003 




TMPC - 


000001 




TIIPRO- 


010004 




TI»PTA" 


010027 




TMRPT- 


010007 





TllSOr " 


010025 




T A A ^Bki .a> 

T$ ISRV" 


OlUOOO 




T f 1 SU ■ 


A 4 AAA 4 

OlOOOl 




T A ATCC a 

Tl ITE5" 


A4 AA'^V 

010023 




T1 

Tl 


AAAVAA 


U 


T 1 CVTT 

T IcXI 1 


042aOD 




Tti CAT 

TlLcOT 


AA ^VA£ 

042346 




T 1 AftA 


04<Aa2 




T 1 OA 1 

TlHDl 


04Z332 




T 1 OA9 

T1RD2 


042300 




T 4 OAV 


AA04CA^ 
V42300 




T 1 OAA 


AAOC7A 




T 1 OAQ 


AAOJIA3 




T 1 OAJl 
1 IKUO 


AAOA1 A 




T 1 OPU 
1 IKCM 


AAOVAA 




Tl CVA 


AAO^CAA 




T 4 eifo 


AAOXAO 

o^caoc 




T 1 CVO 1 


04C430 




Tl CVDO 


AA3AJLA 




T 1 C^D 

1 laKK 


AA3T7A 

o^ca f O 




1 laKNi 


AA3A3II 




Tl cpn 


nA3V7<> 
O^cO fO 




Tl CPr9 


AA3AAA 




Tl corx 

1 xarua 


(SA3A1 3 




Tl com 






T 1 con? 

1 Xar U£ 


nA9AXA 




Tl CPflT 

1 xariia 


042442 




T 1 coo 1 

1 XarnX 


042450 




T 1 CP03 


042472 




T 1 UOI 
1 XMKX 


042506 




T1UR2 


042514 




Tl UOX 
1 XMna 


042S22 




1 XMvV^ 


042530 




Tl UOC 


042S36 




Tl IJD& 


042544 




T1UTM 
1 XM 1 n 


042354 




T3 


042626 G 


TOPMn a 


004716 


G 


T3PyTT 
1 CC AX 1 


043356 




TOi PAT 


043414 




T3DI> 


043422 




043400 




1 eaixU 


043430 






043436 






043406 




1 a 


043446 


G 




044224 




T3R0 


044270 




T3REU 


044246 




TSSPO 


044276 




T3URT 


044254 




T3MTM 


044262 




T4 


044306 


G 


T4EXIT 


044702 




T4REU 


044714 




T4URT 


044722 




T4UTM 


044730 
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riACRO Y05.02 Monday 26 Aug-S5 09:54 Pag* 



T5 

T5CMP 

T5CP 

T5EXIT 

T5R0 

T5REW 

T6 

T6EX1T 

T6R0 

T6REW 

T6SK0 

T6URT 

T6UTM 

T7 

. ABS. 



044740 G 

002236 G 

050331 

045264 

045304 

045276 

045314 G 

046034 

046100 

046056 

046106 

046064 

046072 

046116 G 



110750 000 
000000 001 
Errors detected: 0 



T7BRFL- 

T7CM01 

T7CM02 

T7CM03 

T7CM04 

T7CM05 

T7CM06 

T7CH07 

T7EN0 

T7EXIT 

T7TBL 

UAM 

UCOENO> 



000001 G 

002240 

002246 

002254 

002262 

002270 

002276 

002304 

002312 

046464 

002232 G 

000200 G 

000222 G 



(RU.I.GBL.ABS.OVR) 
(RU.I.LCL.REL.CON) 



UCDSRG- 

UOROP 

UEOT 

ur.CMR- 

UF.CMW- 

UF.RMV- 

UF.VSS- 

UF . VSU- 

UF.UPH- 

UF.WPS- 

UNOROP- 

UNJAM 

UNKEL 



000220 
003704 
003706 
000001 
000002 
000200 
000040 
020000 
020000 
010000 
000032 
033420 
012675 



A*«««bl«r atatiatica 



Work f i la rmmdu : 
Uork fila writaa: 
Siza of Mork fila: 
Siza of cora peel: 
Oparat i ng ayata* : 



329 
327 

35360 Uorda ( 139 Pages) 
19714 Uorda ( 75 Pagea) 

RSX-llM/PLUS (Under VAX/ VMS) 



Elapsed tine: 00:22:47.64 

CZTUIA . BIN. CZTUIA . LST/ -SP-SVC40R . MLB/ML . CZTUIA 



3-11 



SEQ 179 



UNKERL 011356 
UNLBIT- 000004 G 
UNTEOT 020253 G 
UNTLOT 020307 G 
UNTSTP- 000002 G 
URBENO- 000212 G 
UROENO- 000216 G 
UROSRG- 000214 G 
UREEL 013022 
UR3PBF- 000210 G 
UUEEL 013046 
UPRB - 000020 G 
UPRBIT- 000005 G 



UPRER 011607 
UPRT 011106 G 
UR > 000020 G 
WRITE 024662 
URKMSK 003620 G 
URTBUF 070614 G 
WTAPm 025162 
UTM - 000100 G 
XFERST- 000010 G 
X$ALUA- 000000 
X*FALS- 000040 
XIOFFS- 000400 
XtTRUE- 000020 



